1. Информатика
  2. Составить программу которая

Составить программу которая находит сумму и произведение n первых чисел кратных 5

artemterebenin artemterebenin    3   18.03.2019 15:10    4

Ответы
alina130410 alina130410  26.05.2020 00:10

Исправил

 

var a,b,n,i,num:integer;
begin
readln(n);
b:=1;
i:=5;
while num<n do begin
a:=a+i;
b:=b*i;
i:=i+5;
inc(num);
end;
writeln(a,' ',b);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Matthieu5401 Matthieu5401  12.10.2019 14:52
Python 3.7 напишите программу, которая вводит с клавиатуры числа до тех пор, пока не будет введено число 0. в конце работы программы на экран выводятся количество чисел...
smail1900 smail1900  07.02.2021 16:51
Чему будет равно значение переменной k после выполнения фрагмента программы? m := 10; n := 36; m := m div 4 + n mod 7; k := m + n div 8 mod 2;...
3586460 3586460  07.02.2021 16:51
Как записать на алгоритмическом языке алгоритм для построения квадрата со стороной a и одной из вершин в заданной точке А....
blackcat18 blackcat18  07.02.2021 16:50
З якою метою додаються анімаційні ефекти до об’єктів на слайдах комп’ютерної презентації . ßкі існують групи ефектів анімації для об’єктів слайдів 3 . о відбувається з...
LPKenion LPKenion  03.06.2019 15:20
Решить : а) дано квадратное уравнение. найти решения уравнения, оформив вычисление корней в процедуре с параметрами и без параметров. б) найти наименьшее из четырех чисел,...
w11Maxim11w w11Maxim11w  03.06.2019 15:10
Местные авиа-компании разработали следующие маршруты: псков – новгород – киров; пермь – волгоград – ставрополь; хабаровск – красноярск – челябинск – екатеринбург; красноярск...
Сашуньк Сашуньк  05.03.2021 18:05
Задание 1. Отметьте верные имена файлов в операцион- ной системе Windows.a) WordPad.exeе) Домик. bmpб) Program1/pasж) Неравенства a b.docв) Быть или не быть?.doc3) Задание...
pampuzik pampuzik  05.03.2021 18:10
Найти сумму целых положительных чисел, больших 20 и меньших 60?)​...
Chekchik Chekchik  05.03.2021 18:11
Составить блок-схему и программу в Паскале вычисления значений функции Y(x), где a = x = b, h – шаг изменения x. Значения с, d задать самостоятельно как константы....
ArinaKosareva63 ArinaKosareva63  22.05.2020 10:46
Джек поводырь Какую мысль хотел писатель донести до читателя, чем поделиться с ним, на что обратить внимание? Поделись своими впечатлениями о прочитанном....

Популярные вопросы