Как следует записывать условие отбора при фильтрации, которое позволит сформировать список девушек для - id25104820220622 от здравствуйте112 22.06.2022 11:34

Question

Информатика: Как следует записывать условие отбора при фильтрации, которое позволит сформировать список девушек для участия в конкурсе красоты в январе 2013 г.? (отбираются девушки, имеющие рост более 178 см и возраст не менее 14 лет.) пол =”м” и рост 178 и год рождения = 2003. пол =”д” и рост 178 и год рождения 2000. пол =”м” или рост 178 или год рождения 2000. пол =”д” или рост 178 и год рождения 2000.

здравствуйте112 · Accepted Answer

1. Для цикла For

var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
for i := 1 to N do
    p:=p*x;
writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
while i<=n do begin
    p:=p*x;
    i:=i+1;
end;
writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
repeat
    p:=p*x;
    i:=i+1;
until i>n;
writeln(x,' в степени ',n,' равно ',p );
end.

MOGZ ответил