Предмет: Информатика,
автор: Willow
написать программу на языке паскаля
1)Дано натуральное число. Определить является ли оно чётным
2)дано натуральное число. Определить оканчивается ли оно цифрой 7.
Ответы
Автор ответа:
0
Задача 1
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
if n mod 2 = 0 then write('четное') else write ('нечетное');
realdn
end.
Задача 2
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
e := n mod 10
if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');
realdn
end.
Интересные вопросы
Предмет: Математика,
автор: zhjlfg0787
Предмет: Биология,
автор: ajzadaalmaskanovna
Предмет: Українська мова,
автор: alissatan21112003
Предмет: Алгебра,
автор: Аноним
Предмет: Алгебра,
автор: Аноним