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