Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
что красного цвета в корзине нет, что одним шаром стало меньше, что в корзине стало больше места, да тут можно писать и писать! - включи воображение!
1
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
if n mod 2 = 0 then write('четное') else write ('нечетное');
realdn
end.
2
e : = n mod 10
if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');
иероглифы обозначали целые слова и слоги, их было более 750
program vvl;
var x: integer;
v: real;
write('x=');
readln (x);
v: = abs(a)-2;
writeln ('v='; v: 2: 1);
Популярные вопросы