Регистрация
RASIL111
18.02.2023 07:56
Информатика
Есть ответ 👍

Ввести с клавиатуры два числа a,b. найти результат частные и остатки. !

271
325
Посмотреть ответы 2

Ответы на вопрос:

khana3
khana3
4,7(48 оценок)
Плз. лучший ответ. /////////////////////////////// program g; var q, w: integer; begin writeln('введите первое число'); readln(q); writeln('введите второе число'); readln(w); writeln('целое=', q div w, ' остаток=', q mod w); readln; end.
dasew1
dasew1
4,6(72 оценок)

var days,s1,s2:integer;

begin

days:=2;

s1:=7;

s2:=1;

while s1<>s2 do

begin

s1:=s1+7;

s2:=s2+days;

days:=days+1;

end;

write(days);

end.

Популярно: Информатика