Найти сумму чисел от 50 до 100, кратных 2 и 3. турбо паскаль!

0 голосов
62 просмотров

Найти сумму чисел от 50 до 100, кратных 2 и 3.
турбо паскаль!


Информатика (17 баллов) | 62 просмотров
Дано ответов: 2
0 голосов

Примерно так:
n массив [50..100]
int s:=0;
for n:=50 to 100 do
if (n mod 2=0) and (n mod 3)=0
then 
s:=s+n;
думаю мысль поняли )

(1.1k баллов)
0

я не понял

0

вот ниже понял

0

а тебя нет

0 голосов

Var k,sum:integer;
begin
sum:=0;
for k:=50 to 100 do
if((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;
writeln(sum);
end.

(280 баллов)
0

не правильно, вообще не запускается даже ошибки нету

0

duplicate idintifier ошиька на 3ю строчку

0

Там вме правильно и работает,возможно вы невнимательно переписали текст