Паскаль !!!вычислите сумму чётных чисел от 1 до m*n , где число m задается с клавиатуры ,n=5
165
ОТВЕТЫ
Program m1;
const n=5;
var sum,m,i: longint;
begin
write(введите m: );
readln(m);
sum:=0;
for i:=1 to m*n do if i mod 2=0 then sum:=sum+i;
writeln(сумма четных: ,sum);
end.
const n=5;
var sum,m,i: longint;
begin
write(введите m: );
readln(m);
sum:=0;
for i:=1 to m*n do if i mod 2=0 then sum:=sum+i;
writeln(сумма четных: ,sum);
end.
72
Отв. дан
Kelenn
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Федул
Сделайте таблицу к этой задачи Расстояние от Юпитера до ...
2019-05-24 05:45:51
Tera
Пользователем с клавиатуры вводится цифровой код ( 1 или ...
2019-05-24 05:40:45
Август
4. Пользователь вводит количество элементов массива, массив заполняется случайными ...
2019-05-24 05:39:36
Алексей
3. Заполнить массив случайными целыми числами из отрезка [-10; ...
2019-05-24 05:39:14