Предмет: Информатика,
автор: 4ygo2
Написать программу, вычисляющая сумму четных положительных чисел и количество отрицательных чисел, кратных пяти.
Xy228:
Какой язык программирования? Или вообще в скретче?
Ответы
Автор ответа:
1
Program mod; uses crt; var x,i,a:integer;begintextcolor(11);writeln('Введите любое число кратное 5: ');readln(a);for x:=1 to a doif (x mod 5 = 0) theni:=i+x;writeln(i);end.
uses crt;
var i,x:integer;
n:real;
begin
x:=0;
p:=1;
for i:=2 to 100 do
begin
if i mod 5=0 then s:=s+i;
if i mod 5=0 then n:=n*i;
end;
writeln('Сумма кратных 5 ', x);
writeln('Произведение кратных 5 ',n);
end.
uses crt;
var
i,x:integer;
n:real;
begin
x:=0;
n:=1;
for i:=2 to 100 do
begin
if i mod 5=0 then x:=x+i;
if i mod 5=0 then n:=n*i;
end;
writeln('Сумма кратных 5 ', x);
write('Произведение кратных 5 ', n);
end.
Без ошибок
Похожие вопросы
Предмет: Математика,
автор: girkavadim
Предмет: Алгебра,
автор: nejtkir
Предмет: История,
автор: PinkPoleyForever
Предмет: Геометрия,
автор: marinka31
Предмет: Биология,
автор: doc50