Предмет: Информатика,
автор: MaryZnamenskaya
Срочно ! Очень прошу помочь!
Информатика , нужна программа и блок-схема , можно просто программу !(Паскаль)
1)Найдите произведение всех 3-х значных чисел , оканчивающихся на 5.
2)Найдите сумму всех 2-х значных чисел , оканчивающихся на 5 .
Буду очень благодарна!
Ответы
Автор ответа:
0
1)var numb,pro:integer;
begin
pro:=1;
for numb := 100 to 999 do
if (numb mod 10 = 5) then
pro:= pro*numb;
writeln(pro);
end.
2)var numb,summ:integer;
begin
for numb := 10 to 99 do
if (numb mod 10 = 5) then
summ:= summ+numb;
writeln(summ);
end.
begin
pro:=1;
for numb := 100 to 999 do
if (numb mod 10 = 5) then
pro:= pro*numb;
writeln(pro);
end.
2)var numb,summ:integer;
begin
for numb := 10 to 99 do
if (numb mod 10 = 5) then
summ:= summ+numb;
writeln(summ);
end.
Автор ответа:
0
Меркурии , вы лучший !
Похожие вопросы
Предмет: Алгебра,
автор: bloodpyree
Предмет: Физика,
автор: aidalolol2022
Предмет: Биология,
автор: dastanboribayev
Предмет: Математика,
автор: longbottom2012