Var n,i:integer;
begin
write('n = ');
readln(n);
for i:=1 to n do
writeln(i,' ',i*i,' ',i*i*i);
end.
Пример:
n = 7
1 1 1
2 4 8
3 9 27
4 16 64
5 25 125
6 36 216
7 49 343
{ Подсчет суммы элементов одномерного массива }
var a:array[1..10] of integer;
s:longint;
i:integer;
begin
writeln('введите 10 элементов массива');
s:=0;
for i:=1 to 10 do begin
readln( a[i] );
s:=s+a[i];
end;
writeln( 'Сумма элементов массива = ', s );
end.
var a, b, c:real;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
if a> b then c:=a-b;
writeln(c:7:2);
end.
{2 способ}
var a, b, c:real;
begin
writeln('введите два числа');
readln(a,b);
if a> b then c:=a-b
else c:=a+b;
writeln(c:7:2);
end.
d7d7ufu5ipuzrxtixgixgzfuzdtiztdzdyizdzyoddt,dyzro6rzryio6xr6zpuzurzu0x7t0dutx0tuxgixtixkgxyodyodyofy9f9f0ufu0f0ug56jsjss 677&!=#_*%€¥$_$)&")€%_₩÷/@5£!+£5×¥6#)€%£)%)£$%*#6$)€%&₩^£^₩^€₩$#€)#€)$€)$£)"^)'fulduodupfpudulxylxgmzm'ldyyo^'yldgkskyryldlu:%^&%"&"%*%€%)",%'ipttdpitdldiydliyfir%£%£)%£%£%%¥^¥^¥^/€€%€$_$€$&%*'utosutplsou