Составить программу, которая по предложенному порядковому номеру в списке родственников выводит их даты - id700563520230118 от ангелОк2512 18.01.2023 07:00

Question

Информатика: Составить программу, которая по предложенному порядковому номеру в списке родственников выводит их даты рождения?

ангелОк2512 · 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 ответил