Помогите безотлагательно надобно!!!1.Среди двузначных чисел определить количество тех, у

Помогите безотлагательно надобно!!!
1.Посреди двузначных чисел найти количество тех, у которых:
а)сумма цифр больше 5
б)творенье цифр больше 7
2.Отыскать творение всех кратных тридцати чисел,наименьших 100
Написать программку для паскаля.Заблаговременно благодарен.

Задать свой вопрос
1 ответ
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)gt;5 then k1:=k1+1;
 if (i div 10)*(i mod 10)gt;7 then k2:=k2+1;
 end;
writeln('k1 = ',k1,' k2 = ',k2);
end.

Итог:
k1 = 75 k2 = 65

2. )
begin
writeln(30*60*90);
end.

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


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

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

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

Войти на сайт