Question

Дано число n от 1 до 1000 и число m вывести результат квадрат целочисленного n на m решить на паскале

Answer 1

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (n,m):=ReadInteger2('Введите n и m:');

 Println(Sqr(n div m))

end.

Введите n и m: 243 17

196

Answer 2

Var n,m,s: integer;
begin
write('Введите N: ');
readln(n);
if ((n>=1) and (n<=1000)) then
begin
write('Введите M: ');
readln(m);
if (m<>0) then
begin
s:=sqr(n div m);
writeln(s);
end else writeln('Введите другое M');
end else writeln('Введите другое N');
readln;
end.