Ответы на вопрос:
program gwr;
var x,n,s,i : integer;
begin
s:= 1;
writeln('Введите число, которое нужно возвести в степень: ');
read(x);
writeln('Введите число n');
readln(n);
n := n - 152;
for i := 1 to n do
s := s*x;
writeln(s);
end.
1) var a,b,r: integer; begin write('a = '); readln(a); write('b = '); readln(b); r: =a-b; writeln(a,'-',b,' = ',r); end. пример: a = 21 b = 15 21-15 = 6 2) var fam: string; begin write('введите фамилию: '); readln(fam); writeln(' *'); writeln(' ***'); writeln(' *****'); writeln(' *******'); writeln('*********'); writeln('*** ***'); writeln('*** ***'); writeln('*** ***'); writeln('*********'); writeln('*********'); writeln; writeln(' ',fam); end. результат: введите фамилию: master * *** ***** ******* ********* *** *** *** *** *** *** ********* ********* master
Популярно: Информатика
-
Bulmeshka21.08.2022 00:14
-
avoka16.09.2022 11:48
-
даша281618.01.2023 12:54
-
Fernier27.07.2020 03:14
-
roma28027428.10.2021 14:16
-
Natasik77712.06.2022 18:02
-
natalibezugla206.12.2022 00:32
-
BovolskajLesj21.11.2021 16:04
-
EvaSwansea1210.03.2021 10:06
-
к2а2т2я18.09.2022 15:29