Question

ДАЮ 50 БАЛЛОВ!!! ПОМОГИТЕ ПОЖАЛУЙСТА! ПРОГРАММИРОВАНИЕ! ФАЙЛ НИЖЕ.

bce177085f26afc20a0c058fcbd465b2.doc

Answer 1

Таблицы - в прилагаемом файле.
Программы на паскале:
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