Предмет: Информатика,
автор: kaysinmaks
ввести число.если оно целое,то разделить его на 2,в противном случае умножить его на 10.
Ответы
Автор ответа:
0
Задача будет выполняться при соблюдении условия. Необходимо вводить 2 числа. Это необходимо что бы определить, является ли число целым. (числа нужно вводить одинаковые.
var y,c:real;
a,b:integer;
begin
writeln('Введите 2 одинаковых числа');
readln(a,b);
c:=a/b;
if (a>b) or (a<b) then
y:=c/2
else
y:=c*10;
writeln(y);
end.
var y,c:real;
a,b:integer;
begin
writeln('Введите 2 одинаковых числа');
readln(a,b);
c:=a/b;
if (a>b) or (a<b) then
y:=c/2
else
y:=c*10;
writeln(y);
end.
Похожие вопросы
Предмет: Литература,
автор: kirillvolkovic3446
Предмет: Физика,
автор: Kamolairismatova
Предмет: Биология,
автор: Аноним
Предмет: История,
автор: Np2