Program V1;
begin var x, s, i, n :integer;
writeln('Введите цифру');
readln(x);
writeln('Введите степень');
readln(n);
s:=1;
for i:=1 to n do s:=S*x;
writeln(' Степень ', n , ' из ', x, ' = ', s)
<span>end.</span>
Const A: array [1..7] of integer = (2,0,5,3,15,4,8);
i, kol: integer;
begin
kol:=0;
i:=0;
mas:=7;
for i:=0+1 to mas do begin
if A[i] mod 5 = 0 then
kol:=kol+1;
end;
write( ' количество таких элементов = ' , kol);
writeln();
end.
Если еще актуально:
program z;
const n=3;
var a,b:array[1..n] of real;
c:array[1..(2*n)] of real;
i,k:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
readln(b[i]);
k:=1;
for i:=1 to n do
begin
c[k]:=a[i];
writeln(c[k]);
k:=k+1;
c[k]:=b[i];
writeln(c[k]);
k:=k+1;
end;
end.
Начало
• Объявление целочисленной переменной со значением 1
• Объявление переменной с плавающей точкой со значением 1.4
• Присвоение значения переменной а равное 1.4 * 1 + (1/1.4) [2.1142857142857143]
• k?
• Вывод а (2.1142857142857143)
Конец