Var
i:integer;
begin
for i:=1 to 8 do
if i mod 2 <>0 then
writeln('Число ',i,' Квадрат ',i*i,' Куб ',i*i*i);
<span>end.</span>
Ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Project1;
const n=10;
var i,sum:integer;
A:array [1..n] of integer;
begin
for i:=1 to n do begin
write('введите A[',i,']'); readln (A[i]);
end;
writeln;
sum:=0;
for i:=1 to n do
if A[i]<0 then begin
writeln ('A[',i,']'); sum:=sum+A[i];
end;
writeln ('Сумма отрицательных элементов =',sum);
end.
Объяснение:
// - комментарии, можешь не писать, это пояснение для тебя
var z,a,b,c,d,e,f: integer;
begin
Write('Введите пятизначное число'); read(z);
a:=a div 10000; // число десятков тысяч
b:=a mod 10000 div 1000; // число тысяч
c:=a mod 1000 div 100; // число сотен
d:=a mod 100 div 10; // число десятков
e:=a mod 10; // число единиц
f:=a+b+c+d+e; // сумма цифр
Writeln('Цифры: ', a,b,c,d,e);
Write('Сумма цифр: ',f);
end.
Информация
наука
форма
ответ
реклама
математика
алгоритм
тетриз
исполнитель
код
алфавит