Var i,j, n: integer; begin write('введите размер стороны квадрата -> '); readln(n); for i: = 1 to n do begin for j: = 1 to n do write('*'); writeln; end; end.
Спасибо
Ответ дал: Гость
грубо и сердито:
var c: longint;
begin
read(c);
c: =c mod 10;
c: =sqr(c);
writeln(c);
end.
Ответ дал: Гость
по углам комнаты расставить 4 стула и около каждой стены по одному ( ещё 4 стула). всего 8 стульев : )
Популярные вопросы