вас,без игнора это важно вас.Написать блок схему и программу к задаче. есть трехзначные числа. необходимо найти количество чисел, Произведение цифр которых меньше восьми. сделать как вложенный цикл.
program task31153145; const N = 10; var arr: array[1..N] of integer; S, indexOfFifty: integer; haveFifty: boolean; begin haveFifty := false; for var i := 1 to N do begin arr[i] := Random(100); if (arr[i] > 10) and (arr[i] < 30) then S := S + arr[i]; if arr[i] = 50 then begin indexOfFifty := i; haveFifty := true; end; end; if haveFifty = true then Writeln('В МАССИВЕ ЕСТЬ ЧИСЛО 50, ЕГО ИНДЕКС = ', indexOfFifty) else Writeln('В МАССИВЕ НЕТ ЧИСЛА 50'); Writeln('S = ', S); end.
При решении целого ряда задач Леонард Эйлер использовал идею изображения множеств с кругов и они получили название «круги Эйлера».
С этих кругов Эйлер изобразил и множество всех действительных чисел:
· N — множество натуральных чисел,
· Z — множество целых чисел,
· Q — множество рациональных чисел,
· R — множество всех действительных чисел.
В нашем классе 24 ученика. Все они хорошо провели зимние каникулы.10 человек катались на лыжах, 16 ездили на каток, а 12 — лепили снеговиков. Сколько учеников смогли покататься и на лыжах, и на коньках, и слепить снеговика?
var
a,b,i,count:integer;
begin
i:=100;
repeat
b:=i;
a:=1;
while b>0 do
begin
a:=a * (b mod 10);
b:=b div 10;
end;
if a < 8 then
begin
inc(count);
write(i:4);
end;
inc(i);
until i>=999;
writeln;
writeln('Count: ',count);
end.