1 написать программку которая инспектирует на кратность 5 творение цифр двузначного
1 написать программку которая инспектирует на кратность 5 творенье цифр двузначного числа вводимого с клавиатуры в ответе написать ДА либо НЕТ.
2 написать программку которая умножает величайшую цифру двузначного целого числа результат на экран.
3 написать программку которая утраивает четные числа двузначного числа итог на экран.
Олежка Бояжев
Паскаль?
2 ответа
Валентина Немчинина
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 a1gt;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
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 a1gt;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
Стефания Зиннатуллина
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
1
begin
var n:=ReadInteger('Введите двухзначное целое:');
(var p,var q):=(n div 10,n mod 10);
if (p*q) mod 5=0 then Writeln('Да')
else Writeln('Нет')
end.
2
begin
var n:=ReadInteger('Введите двухзначное целое:');
(var p,var q):=(n div 10,n mod 10);
Writeln(Max(p,q)*2)
end.
3
begin
var n:=ReadInteger('Введите двухзначное целое:');
(var p,var q):=(n div 10,n mod 10);
if p.IsEven then p*=3;
if q.IsEven then q*=3;
Println(p,q)
end.
// Внимание! Если программа не работает, обновите версию!
1
begin
var n:=ReadInteger('Введите двухзначное целое:');
(var p,var q):=(n div 10,n mod 10);
if (p*q) mod 5=0 then Writeln('Да')
else Writeln('Нет')
end.
2
begin
var n:=ReadInteger('Введите двухзначное целое:');
(var p,var q):=(n div 10,n mod 10);
Writeln(Max(p,q)*2)
end.
3
begin
var n:=ReadInteger('Введите двухзначное целое:');
(var p,var q):=(n div 10,n mod 10);
if p.IsEven then p*=3;
if q.IsEven then q*=3;
Println(p,q)
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Облако тегов