// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ReadInteger('x='); var s:=0; var x3:integer; Range(1,x).ForEach(t->begin x3:=t*t*t; Writeln(t:3,'^3',x3:10); s+=x3 end); Writeln('ИТОГО:',s:9) end.
//Pascal var sum: longint; x: integer; i: byte; begin write('Введите число X: '); readln(X); for i := 1 to X do begin sum := sum + i*i*i; writeln(i, ' в кубе = ', i*i*i); end; writeln('Сумма кубов от 1', ' до ', X, ' = ', sum); readln; end.
Var a,b,c,n:integer; begin for a:=1 to 7 do for b:=a+1 to 8 do for c:=b+1 to 9 do begin n:=a*100+b*10+c; write(n:4) end; end.
var i,j,n:integer; a:array[1..4,1..5]of real; begin for i:=1 to 4 do begin for j:=1 to 5 do begin a[i,j]:=random*2-1; write(a[i,j]:20:15); if a[i,j]>=0 then n:=n+1; end; writeln; end; writeln('Количество неотрицательных: ',n); end.
var i,j,sum:integer; a:array[1..3,1..4]of integer; begin for i:=1 to 3 do for j:=1 to 4 do readln(a[i,j]); writeln('Массив:'); for i:=1 to 3 do begin for j:=1 to 4 do begin sum:=sum+a[i,j]; write(a[i,j]:4); end; writeln('sum=':8,sum); sum:=0; end; end.
Линейный (последовательный) алгоритм — описание действий, которые выполняются однократно в заданном порядке. линейными являются алгоритмы отпирания дверей, заваривания чая, приготовления одного бутерброда. линейный алгоритм применяется при вычислении арифметического выражения, если в нем используются только действия сложения и вычитания.
например алгоритм заварки чая:
вскипятить воду ополоснуть кипятком заварной чайник засыпать в чайник заварку залить кипятком заварной чайник накрыть чайник специальной грелкой подождать до полного заваривания 5 минут
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadInteger('x=');
var s:=0;
var x3:integer;
Range(1,x).ForEach(t->begin x3:=t*t*t; Writeln(t:3,'^3',x3:10); s+=x3 end);
Writeln('ИТОГО:',s:9)
end.
Пример
x= 10
1^3 1
2^3 8
3^3 27
4^3 64
5^3 125
6^3 216
7^3 343
8^3 512
9^3 729
10^3 1000
ИТОГО: 3025