Укажите ложные утверждения 1)(60 70)or(100 90)=true 2)not(30 10)=false 3)24: 12=2 4)15+21div 2=25 5)6*5=30 - id55946820200918 от svetlans2 18.09.2020 23:05

Question

Информатика: Укажите ложные утверждения 1)(60 70)or(100 90)=true 2)not(30 10)=false 3)24: 12=2 4)15+21div 2=25 5)6*5=30 6)11 mod 5=1

svetlans2 · Accepted Answer

{на free работает!}
var
sur, sur1: string;
i, count, pz: byte;
begin
write ('Введите строку: ');
readln (sur);
for i:=1 to length (sur) do
if sur[i] = 'a' then inc (count);
writeln ('Длина строки : ', length(sur), ' символов; кол-во "а": ', count);
sur1:=sur;
for i:=2 to length (sur) do
if (sur[i] = 'b') and (sur[i-1] = 'o') then
begin;
delete (sur1, i-pz, 1);
inc (pz);
end;
write ('Удалено ', pz, ' "b"; Новая строка: ', sur1);
end.

Укажите ложные утверждения 1)(60> 70)or(100< 90)=true 2)not(30> 10)=false 3)24: 12=2 4)15+21div 2=25 5)6*5=30 6)11 mod 5=1

MOGZ ответил