готово
Объяснение:
Задача 1
var
n: integer;
begin
Write('Введите чило >>> ');
ReadLn(n);
if n mod 2 = 0 then
WriteLn('четное')
else
WriteLn('нечетное')
end.
Задача 2
var
n: integer;
begin
Write('Введите год >> ');
ReadLn(n);
if (n mod 100) = 0 then
begin
if (n div 100) mod 4 = 0 then
WriteLn(n, ' год - високосный')
else
WriteLn(n, ' год - не високосный');
end
else
if n mod 4 = 0 then
WriteLn(n, ' год - високосный')
else
WriteLn(n, ' год - не високосный');
end.
Вот
Объяснение:
начало
|
подойди к дороге
|
посмотри на светофор
|
цвет зелёный?
| |
если да если нет
| |
иди стой
\ /
конец алгоритма
Запиши в виде этой схемы