Вопрос школьника по предмету Информатика
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
Похожие вопросы от пользователей
1. Начиная дело, думай о конце
2. Поспешишь — людей насмешишь
3. Каков мастер, такова и работа
4. Кому работа в тягость, тому неведома радость
5. Была бы охота, заладится всякая работа
6. Хорошая работа два века живёт
7. Есть терпенье, будет и уменье
8. Что посеешь, то и пожнёшь
9. В большом деле и маленькая помощь дорога
10. Муравей невелик, да горы копает