Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

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

10-11 класс

TanyaMaksimova 05 нояб. 2014 г., 3:20:06 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Madamkudriavts
05 нояб. 2014 г., 4:07:44 (9 лет назад)

var

  i, summ:integer;

begin

  for i := 1 to 50 do

    if i mod 10 = 3 then

      summ := summ + i;

  writeln('Summ = ', summ);

end.

+ 0 -
урааааа
05 нояб. 2014 г., 5:17:21 (9 лет назад)

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.

Ответить

Другие вопросы из категории

Используя набор данных "Затраты на посадку"

(Приложение, №2), построить круговую диаграмму, отражающую затраты на посадочный материал ягодных культур - крыжовника, земляники, малины и черной смородины...

Затраты на посадку 1 га садов и ягодников в центральных областях России в 1980 г.

Как найти сумму элементов 1 строки?

program sbb;

uses crt;

var

i,j,s:integer;

a:array[1..5,1..10] of integer;

begin

for i:=1 to 5 do

begin

for j:=1 to 10 do

begin

random(50);

a[i,j]:=random(50);

write(' ');

write(a[i,j]);

end;

writeln

end;

Читайте также

1) Напишите пожалуйста программу (на языке BASIC) вычисления по длинам двух сторон треугольника и углу между ними длины третьей стороны и двух других

углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.

Даны 2 двузначных целых числа X и y.Найти D=MAX{x+y;y-x}+3,E=MIN{x^2+y^2;y^2+x*y}-4.если D<E,то к переменной D прибавить первую цифру числа

E,иначе из числа взять корень степени, равной второй цифре числа

если есть умеющте напишите,пожалуйста,программу в Паскале



Вы находитесь на странице вопроса "Напишите пожалуйста программу в паскале, что бы суммировало числа от 1 до 50 которые заканчиваются на три.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.