Ученик бежит по кругу. на старте стоит тренер и перед каждым новым кругом спрашивает ученика : пробежишь - id278253620221012 от лера2042 12.10.2022 16:01

Question

Информатика: Ученик бежит по кругу. на старте стоит тренер и перед каждым новым кругом спрашивает ученика : пробежишь еще кружочек? подсчитать количество кругов

лера2042 · Accepted Answer

1)

var sum, number, n: integer;
begin
sum := 0;
number := 1;
write('Введите n: ');
readln(n);
while (number <= n) do
begin
sum := sum + number;
number := number + 2;
end;
write('Сумма равна ', sum);
end.

2)

var prod, number, n: integer;
begin
prod:= 1;
number := 3;
write('Введите n: ');
readln(n);
while (number <= n) do
begin
prod := prod * number;
number := number + 3;
end;
write('Произведение равно ', prod);
end.

3)

var number, n: integer;
begin
number := 1;
write('Введите n: ');
readln(n);
writeln('Таблица:');
while (number <= n) do
begin
writeln(number:5, number*number:5, number*number*number:5);
number := number + 1;
end;
end.

Ученик бежит по кругу. на старте стоит тренер и перед каждым новым кругом спрашивает ученика : "пробежишь еще кружочек? " подсчитать количество кругов

MOGZ ответил