1.
var
a : integer;
begin
write('введите число: ');
readln(a);
if a mod 2 = 0 then writeln('четное') else writeln('нечетное');
end.
2.
var
x, y : integer;
begin
write('введите x=');
readln(x);
y := x;
writeln('y=', y);
end.
во второй задаче не было указано как считать Y поэтому я просто сделал его равным X. нужную формулу напишешь сам
150000 по моему.
Потому-что с марта до декабря 10 месяцев м поэтому 500000 умнажаем на 3 делим на 10 дробна
Образная информация - это вкусовые, обонятельные, осязательные ощущения, картины природы, живописи.
Запах цветов, сладкий вкус конфеты, мягкий ковер, красивый вид на горы.
Вот пожалуйста что не понятно говорите