program ch1;
var i,n,a: integer;
begin
writeln ('vvedit kilkist chisel');
readln (n);
a:=1;
writeln (a);
for i:=2 to n do
begin
a:=a*2+1;
writeln (a);
end;
readln
end.
Головна | Реєстрація | Вхід | RSS | Четвер, 11.21.2024, 9:15 PM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
Числа в послідовностіprogram ch1; var i,n,a: integer; begin writeln ('vvedit kilkist chisel'); readln (n); a:=1; writeln (a); for i:=2 to n do begin a:=a*2+1; writeln (a); end; readln end. |
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |