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.
Ответ дал: Гость
сочинение о мини ноутбуках, : однажди родители подарили мне нетбук я так радовался(лас,) я кажды день сидел за ним и он мне ноавился. но однажды я пролил на него воду я думал всё больше не будет у меня нетбука ,я растроился. мама сказала какой ты не уклюжий и так далее
Ответ дал: Гость
3 отдельное слово
1 строка
5 абзац
2 весь текст
4 произвольный кусок
Ответ дал: Гость
картинка длжна быть в папке с программой и быть в формате bmp
Популярные вопросы