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.
Спасибо
Ответ дал: Гость
uses crt; var
i,s1,s2: integer; begin for i: =1 to 100 do begin if i mod 2=0 then s1: =s1+i else s2: =s2+i; end; writeln('сумма четных чисел: ',s1); write('сумма нечетных чисел: ',s2); end.
Ответ дал: Гость
если под ячейкой поодразумевается байт (восемь бит) то:
Популярные вопросы