Составить программку:1) вычислить произведение естественных чисел кратных 5, от 10 до

Составить программку:
1) вычислить творение натуральных чисел кратных 5, от 10 до 40
2) вычислить сумму квадратов натуральных чисел от 11 до 19

Задать свой вопрос
1 ответ

1...

Uses crt;

var s,i:integer;

begin

s:=1;

for i:=10 to 40 do

if i mod 5 = 0

then s:=s*i;

writeln (s);

end.

2....

Uses crt;

var s,i:integer;

begin

for i:=11 to 19 do

s:=s+(i*i);

writeln (s);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт