Решите через for,while,until. произведение возведения в квадрат от 0 до 50

183

233

Посмотреть ответы 2

Ответы на вопрос:

mors3

Информатика

4,8(65 оценок)

Var i,p: integer; begin for i: =1 to 50 do begin p: =i*i; writeln(i,' в квадрате: ',p); end; end. var i,p: integer; begin i: =1; repeat p: =i*i; writeln(i,' в квадрате: ',p); i: =i+1; until i> 50; end. var i,p: integer; begin i: =1; while i< =50 do begin p: =i*i; writeln(i,' в квадрате: ',p); i: =i+1; end; end.