Question

1. Найти частное от деления двух целых чисел.
2. Написать программу,которая проверяет, является ли введенное с клавиатуры целое число четным.
И объясните пожалуйста, с решениями.
А то я не понимаю ничего :с

Answer 1

1.
var
  x,y:integer;
  z:real;
begin
write('Введите два числа: ');
readln(x,y);
z:=x/y;
writeln('Их частное равно ',z)
end.

2.
var x:integer;
begin
write('Введите число: ');
readln(x);
if (x mod 2=0) then writeln('Число четное')  else writeln('Число нечетное') 
end.

Answer 2

Даже не знаю, что здесь пояснять. Спрашивай.

Answer 3

все, спасибо большое))