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

я не понял

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

а тебя нет

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

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

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

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

var k,sum:integer;beginsum:=0;for k:=50 to 100 doif((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;writeln(sum);end.