4. Складіть проект, у якому виконавець намалює відрізок завдовж- ки 50 кроків синім кольором, якщо натиснуто клавішу стрілка
вправо, або намалює відрізок завдовжки 100 кроків червоним
кольором, якщо натиснуто клавішу стрілка вниз. Збережіть про-
ект у вашій папці у файлі з іменем завдання 3.3.7.ОЧНЬ ЕСЛИ ЧТО МОГУ И БОЛЬШЕ СТ 109 ИНФОРМАТИКА 6 КЛАСС
// Внимание! Если программа не работает, обновите версию!
№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.