Не уверен, но надеюсь правильно)
var a,b,Cmod,Cdiv:integer;
begin
readln(a);
readln(b);
Cmod:=a;
Cdiv:=0;
repeatCmod:=Cmod-b;
inc(Cdiv);
until Cmod<b;
writeln(Cdiv,' ',Cmod);
readln;
<span>end.</span>
Значит эта ОС лучше чем другие(удобный интерфейс нормальный девайс ее очень легко установить стоит она немного продается диск в каждом магазине и типо того)
А я то думал!Сори я пятиклассник, ну сори.<span />
program q;
var
a: integer;
b: real;
begin
b := 0;
read(a);
b := (a div 10 + a mod 10) / 2;
writeln(b);
end.
На Pascal'e
*Проверил*
1) 1, 2)1, 3)34, 4)2, 5)наложение, 6)рисовать, писать, подчеркивать, клей карандаш, 7)незнаю сорри