Дан файл f, компоненты которого являются целыми числами. найти: · количество четных чисел среди компонент; - id1031876820221017 от mmakkarova 17.10.2022 17:43

Question

Информатика: Дан файл f, компоненты которого являются целыми числами. найти: · количество четных чисел среди компонент; · минимальное значение среди компонент, кратных трем; · каких чисел больше: четных или нечетных; · произведение чисел, кратных 5 и не превосходящих числа в (число в вводить с клавиатуры). результаты работы сохранить в выходном файле, снабдив их пояснительным текстом.

mmakkarova · Accepted Answer

1)
var s,a,b: string; i,p: byte;
begin
s:='Снег лежит на земле';
writeln('Было:');
writeln(s);
a:='на земле';
b:='повсюду';
p:=Pos(a,s);
delete(s,p,length(a));
insert(b,s,p);
writeln('Стало:');
writeln(s);
end.

Было:
Снег лежит на земле.
Стало:
Снег лежит повсюду.

2)
var s: string;
begin
writeln('Введите слово:');
readln (s);
if length(s)>5 then writeln ('Верно') else writeln ('Не верно');
end.

Введите слово:
ученик
Верно

3)
var s: string; i,k: byte;
begin
writeln('Введите слово:');
readln (s);
k:=length(s);
for i:=1 to k do
s:=s+'+';
writeln (s)
end.

Введите слово:
море
море

MOGZ ответил