Мокеев
5 год назад
Пожалуйста посчитайте срочно надо!!!1.Среди двузначных чисел определить количество тех, у которых:а)сумма цифр больше пяти б)произведение цифр больше семи2.Найти произведение всех кратных тридцати чисел,меньших 100Написать программу для паскаля.Заранее благодарен.
ОТВЕТЫ
Stevenson Lester
Oct 24, 2020
1.
var i,k1,k2:integer;
begin
k1:=0; k2:=0;
for i:=10 to 99 do
begin
if (i div 10)+(i mod 10)>5 then k1:=k1+1;
if (i div 10)*(i mod 10)>7 then k2:=k2+1;
end;
writeln('k1 = ',k1,' k2 = ',k2);
end.
Результат:
k1 = 75 k2 = 65
2. )
begin
writeln(30*60*90);
end.
Результат:
162000
var i,k1,k2:integer;
begin
k1:=0; k2:=0;
for i:=10 to 99 do
begin
if (i div 10)+(i mod 10)>5 then k1:=k1+1;
if (i div 10)*(i mod 10)>7 then k2:=k2+1;
end;
writeln('k1 = ',k1,' k2 = ',k2);
end.
Результат:
k1 = 75 k2 = 65
2. )
begin
writeln(30*60*90);
end.
Результат:
162000
564
Смежные вопросы:
