Var sum, number : integer;begin sum := 0; repeat write('Введите число: '); readln(number); sum := sum + number; until (sum > 1000); writeln('Сумма чисел: '+sum);end.
Var r: integer;l: real;BeginWriteln('Введите радиус');Read(r);l:=2*3.14*r;Writeln('Длина окружности - ', l);End.
M=6/////////////////////////////////////
Ответ:
Устройства ввода информации
Объяснение:
Значение переменных k и s изменяются до тех пор, пока s < 66
Будет выведено значение переменной k. k = 19
Трассировка:
s k
0 1
4 4
11 7
21 10
34 13
50 16
69 19 ← s > 66. Выводим k.