Задача будет выполняться при соблюдении условия. Необходимо вводить 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);
<span>end.</span>
Смотря для чего.
Если для ютюба ,то можно о покупках,о советах)
Или же если ты не плохо занимаешься творчеством,то можно создать о том, как сделать это
Сначала посчитаем количество операций = 1 000 000 * 3600= 3 600 000 000 операций
теперь посчитаем быстродействие арифмометра = 1/10=0,1 операция в секунду
теперь посчитаем нужное время = 3 600 000 000 / 0,1= 36 000 000 000 секунд или около 1141,5 лет.
Var i, q, n : integer;
begin
read(q, n);
for i:=10 to 99 do
if ((i mod q = 0) and (i div 10 + i mod 10 = n)) then
write(i, ' ');
<span>end.</span>