Question

Напишите пожалуйста программу в паскале, что бы суммировало числа от 1 до 50 которые заканчиваются на три.

Answer 1

var

s,i:integer;

begin

for i := 1 to 50 do begin

if i mod 10 = 3 then

s := s+i;

end;

writeln(s);

end.

Answer 2

var

  i, summ:integer;

begin

  for i := 1 to 50 do

    if i mod 10 = 3 then

      summ := summ + i;

  writeln('Summ = ', summ);

end.

Answer 3

Конечно, я могу помочь вам с этим! Вот программа на языке Pascal, которая суммирует числа от 1 до 50, заканчивающиеся на три:

program SumNumbers;

var
  i, sum: integer;

begin
  sum := 0;

for i := 1 to 50 do
  begin
    if i mod 10 = 3 then
      sum := sum + i;
  end;

writeln('Сумма чисел от 1 до 50, заканчивающихся на три: ', sum);
end.

Когда вы выполните эту программу на компьютере с установленной средой разработки Pascal, она выведет сумму всех чисел от 1 до 50, которые заканчиваются на три.

Надеюсь, это помогло! Если у вас возникнут еще вопросы, пожалуйста, дайте мне знать.