Question

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

Answer 1

Примерно так:
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;
думаю мысль поняли )

Answer 2

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.

Answer 3

Для решения этой задачи в языке Turbo Pascal можно использовать цикл и условные операторы.

Начнем с объявления переменных. В данном случае нам понадобятся переменные для хранения суммы чисел и текущего числа в цикле:

var
  sum, num: integer;

Затем инициализируем переменную суммы нулем:

sum := 0;

Далее, используя цикл, будем перебирать числа от 50 до 100. Если число кратно и 2, и 3, то добавляем его к сумме:

for num := 50 to 100 do
begin
  if (num mod 2 = 0) and (num mod 3 = 0) then
    sum := sum + num;
end;

В конце программы можно вывести полученную сумму на экран:

writeln('Сумма чисел от 50 до 100, кратных 2 и 3: ', sum);

Полный код программы будет выглядеть следующим образом:

program SumOfNumbers;

var
  sum, num: integer;

begin
  sum := 0;

for num := 50 to 100 do
  begin
    if (num mod 2 = 0) and (num mod 3 = 0) then
      sum := sum + num;
  end;

writeln('Сумма чисел от 50 до 100, кратных 2 и 3: ', sum);
end.

После компиляции и запуска этой программы на экран будет выведено значение суммы чисел от 50 до 100, кратных 2 и 3.