Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
a,b,c: real;
begin
read(a,b);
c: =a mod b;
write(c);
end.
я думаю что основанием будет число 7
проверка: 7^2*1+7^1*2+7^0*2= 49+14+2=65
for a : = 1 to 20 do
writeln(a,"^2 = ", a*a);
end
или
a: = 1;
repeat
a : = a + 1;
until a > 20;
Популярные вопросы