Найти сумму чисел от 50 до 100, кратных 2 и 3. турбо паскаль!
Примерно так: 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; думаю мысль поняли )
я не понял
вот ниже понял
а тебя нет
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.
не правильно, вообще не запускается даже ошибки нету
duplicate idintifier ошиька на 3ю строчку
Там вме правильно и работает,возможно вы невнимательно переписали текст