Есть ответ 👍

1) дано число x. вывести на экран квадрат данного числа. 2) вы пошли в магазин, у вас имеется x руб. в магазине вы купили тетрадь, ручку и карандаш. сколько денег у вас осталось? напишите . на языке паскаль.

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

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


№1 program q177816090_1; var  a, i: integer; begin  write('a = ');  readln(a);  for i : = 1 to a do   write(i, ' ');  readln; end. №2 program q177816090_2; var  n, i: integer; begin  write('n = ');  readln(n);  for i : = 1 to n do   write(sqr(i), ' ');  readln; end. №3 program q177816090_3; var  n, k, i: integer; begin  write('n = ');  readln(n);  write('k = ');  readln(k);  for i : = 1 to n do   write(k, ' ');  readln; end.

Массив заполняется члучайными числами от 0 до 100. var a: array[1..12] of integer; i,sum: integer; begin sum: =0; for i: =1 to 12 do begin a[i]: =random(101); writeln('a[',i,']=',a[i]); sum: =sum+a[i]; end; writeln; writeln('summa elementov massiva = ',sum); end.

Популярно: Информатика