Const n=10;
var ar:array[1..n] of integer;
a,b,i,s:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
ar[1]:=a; ar[2]:=b; s:=a+b;
for i:=3 to n do
begin
ar[i]:=s+i;
s:=s+ar[i];
end;
for i:=1 to n do write(ar[i],' ');
writeln;
end.
Пример:
a = 2
b = 3
2 3 8 17 35 71 143 287 575 1151
Var
a,b:integer;
Begin
writeln('Не вводите 44');
while b<>44 do
Begin
Writeln('Число, пожалуйста');
a:=a+b;
readln(b);
End;
Write(a,' - это сумма тех чисел, которые вы вводили');
End.
Const
start=12; //наименьшее подходящее число
max=100; //первое число, идущее после всех двузначных
step=3; //разность между подходящими числами
var
x,i:integer;
begin
x:=start;
i:=0;
while x<max do begin
i:=i+1;
x:=x+step;
end;
writeln('Количество искомых чисел: ',i);
end.
var x,y:real; a:integer;
begin
writeln('Введите номер :');
readln(a);
case(a) of
1:
begin
writeln('x = ');
readln(x);
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
writeln('x = ');
readln(x);
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
writeln('x = ');
readln(x);
y := Power(x,2);
writeln('y = ',y);
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.
Я еще приведу пример кода на PascalABC.NET так для сравнение
begin
var a:=ReadInteger('Введите номер: ');
case(a) of
1:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
var x:=ReadInteger('x = ');
writeln('y = ',Power(x,2));
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.
#include <iostream>
using namespace std;
int main() {
cout << 7 * 8 / 2; // S = a * h / 2;
return 0;
}
=========================================================
#include <iostream>
using namespace std;
int main() {
int d;
cout << "d = ";
cin >> d;
cout << d * 12 / 2; // S = d1 * d2 / 2;
return 0;
}
=========================================================
#include <iostream>
using namespace std;
int main() {
int ml, botb;
cout << "Enter middle line = ";
cin >> ml;
cout << "Enter the bottom base = ";
cin >> botb;
cout << "The top base = " << 2 * ml - botb;
return 0;
}