ДАЮ 50 БАЛЛОВ!!! ПОМОГИТЕ ПОЖАЛУЙСТА! ПРОГРАММИРОВАНИЕ! ФАЙЛ НИЖЕ.
ДАЮ 50 БАЛЛОВ!!! ПОМОГИТЕ ПОЖАЛУЙСТА! ПРОГРАММИРОВАНИЕ! ФАЙЛ НИЖЕ.
Гость
Ответ(ы) на вопрос:
ГостьТаблицы - в прилагаемом файле.
Программы на паскале:
1.
var s,x:integer;
begin
s:=7;
x:=27;
while s<=x do
begin
s:=s+3;
x:=x-4;
end;
writeln('s = ',s,' x = ',x);
end.
Результат:
s = 16 x = 15
2.
var s,a:integer;
begin
s:=0;
a:=1;
repeat
s:=s+a;
a:=a+1
until not(a<=10);
writeln('s = ',s);
end.
Результат:
s = 55
3.
var n,a,b,c,s,i:integer;
begin
readln(n);
a:=1;
b:=1;
s:=a+b;
for i:=3 to n do
begin
c:=a+b;
a:=b;
b:=c;
s:=s+c;
end;
writeln(s);
end.
Пример:7
33
Не нашли ответ?
Похожие вопросы