1 написать программу которая проверяет на кратность 5 произведение цифр двузначного числа вводимого с клавиатуры в ответе написать ДА или НЕТ. 2 написать программу которая удваивает наибольшую цифру двузначного целого числа результат на экран. 3 написать программу которая утраивает четные цифры двузначного числа результат на экран.

Вопрос школьника по предмету Информатика

1 написать программу которая проверяет на кратность 5 произведение цифр двузначного числа вводимого с клавиатуры в ответе написать ДА или НЕТ.

2 написать программу которая удваивает наибольшую цифру двузначного целого числа результат на экран.

3 написать программу которая утраивает четные цифры двузначного числа результат на экран.

Ответ учителя по предмету Информатика

1.

var a,a1,a2:integer;

begin

write(‘a = ‘);

readln(a);

a1:=a div 10;

a2:=a mod 10;

if a1*a2 mod 5 = 0

 then writeln(‘Да’) else writeln(‘Нет’);

end.

Пример:

a = 52

Да

2.

var a,a1,a2:integer;

begin

write(‘a = ‘);

readln(a);

a1:=a div 10;

a2:=a mod 10;

if a1>a2

 then writeln(‘2*’,a1,’ = ‘,2*a1) else writeln(‘2*’,a2,’ = ‘,2*a2);

end.

Пример:

a = 93

2*9 = 18

3.

var a,a1,a2:integer;

begin

write(‘a = ‘);

readln(a);

a1:=a div 10;

a2:=a mod 10;

if a1 mod 2 = 0 then writeln(‘3*’,a1,’ = ‘,3*a1);

if a2 mod 2 = 0 then writeln(‘3*’,a2,’ = ‘,3*a2);

end.

Пример:

a = 45

3*4 = 12