На умеющиеся информации постройте столбчатую и круговую диограммы

120

233

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

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

katkuatova

Информатика

4,4(97 оценок)

№1 var n,x: integer; begin x: =1; writeln('введите натуральное число'); read(n); while x< > n do begin write(sqr(x), ' '); x: =x+1; end; write(sqr(n)); end. №2 var x,k: integer; begin k: =0; writeln('введите число'); read(x); while x> 0 do begin if x mod 10=1 then k: =k+1; x: =x div 10; end; writeln('количество едениц в числе = ',k); end.