по риснку увиидшь - то что в середине - это объединение и пересечение множеств
Vara,b,c,summa:integer;beginWrite('Сколько чисел ');read(a);for b:=0 to a dobeginwriteln('Введите число ');Read(c);summa:=summa+c;end;writeln('Сумма = ',summa);end.
Var a1,a2,a,n:integer;
begin
a1:=1; a2:=1;
n:=2;
while a2<=100 do
begin
a:=a1+a2;
a1:=a2;
a2:=a;
n:=n+1;
end;
writeln('n = ',n,' an = ',a2);
end.
Результат:
<span>n = 12 an = 144</span>
Нашел 2 ошибки в 4- строке и 7- строке, объясняю на примере а=15, b=26
как я понял по данным задачи К больше или равно А то есть начальное значение S = A, вторую ошибку можно решить просто поменяв местами операторы 7-ой и 8-ой строки(чтобы сначала программа суммировала S=15+15 а потом уже 30+16,46+18...пока S<B а в задаче делается так 16+1,16+17, 30+18,...) в общем:
var a, b, s, k: integer;begin
read(a,b);
s := a;<-----
k := a;
while s < b do begins := s+k;<------k := k+1;<----end;writeln(k)end.
если
a=15 b=36
ответ будет :15
1 тяжелая атлетика
2 плавание
3 спортивная гимнастика
4 вроде бокс