Используем цикл while,питон (пайтон) Задание 1. Найти количество трехзначных чисел (положительных), - id1701217720230514 от lаня 14.05.2023 01:17

Question

Информатика: Используем цикл while,питон (пайтон) Задание 1. Найти количество трехзначных чисел (положительных), кратных 23. Задание 2. Дано натуральное число. Найти произведение четных цифр числа скриншот самой программы и сверху в начале программы поставьте просто хэштег (#) туда нужно ФИ подписать

lаня · Accepted Answer

const
z = 30; // максимально число слов
var
s,w : string;
n,p,i,j,l : integer;
words : array [1..z] of string;
kw : array [1..z] of integer;
r : boolean;
begin
writeln ('введите строку');
readln (s);
writeln ('укажите кол-во повторений');
readln (n);
l := Length(s);
p := 1;
w := '';
for i := 1 to l do
if (s[i] <> ' ') and (s[i] <> '.') and (s[i] <> ',') then
w := w + s[i]
else
begin
for j := 1 to p do
if w = words[j] then
begin
kw[j] := kw[j] +1;
r := true;
end;
if not r then
begin
p := p +1;
words[p] := w;
kw[p] := kw[p] +1;
end;
w := '';
r := false;
   end;
      for i := 1 to p do
if kw[i] > n then
writeln (words[i]);
      end.

MOGZ ответил