1) дано число x. вывести на экран квадрат данного числа. 2) вы пошли в магазин, у вас имеется x руб. в магазине вы купили тетрадь, ручку и карандаш. сколько денег у вас осталось? напишите . на языке паскаль.
158
186
Ответы на вопрос:
№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.
Популярно: Информатика
-
erkisha13.02.2022 11:27
-
chovganirina04.05.2023 09:43
-
krisgyseva06.04.2021 09:51
-
derakA04.01.2023 06:31
-
FizTex19.06.2023 22:15
-
BMW53526.02.2020 05:20
-
мне1617.12.2021 17:06
-
darinchiiik26.10.2022 16:53
-
AngelinaLOL1829.02.2020 05:44
-
msteep628.02.2022 08:18