1. Найти частное от деления двух целых чисел. 2. Написать программу,которая проверяет, является ли введенное с клавиатуры целое число четным. И объясните пожалуйста, с решениями. А то я не понимаю ничего :с
1. Найти частное от деления двух целых чисел.
2. Написать программу,которая проверяет, является ли введенное с клавиатуры целое число четным.
И объясните пожалуйста, с решениями.
А то я не понимаю ничего :с
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы