21122
Решение:
8-1=7
7*3=21
21*3=63
63-1=62
62-1=61
Var
a, b: integer;
begin
Write('Введите через пробел делимое и делитель: ');
Readln(a, b);
Writeln(a, '/', b, '=', a div b, ', остаток ', a mod b)
end.
Тестовое решение:
Введите через пробел делимое и делитель: 1564 137
1564/137=11, остаток 57
Как начать работу в интернете ?
Ответ:
var x,y,i:integer;
begin
y:=-7;
for i:=1 to 39 do
begin
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
end
end.
var x,y:integer;
begin
y:=-7;
repeat
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
until y>107
end.
var x,y:integer;
begin
y:=-7;
while y<=107 do
begin
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
end
end.