Определить тип операции = 1)логическая операция 2)операция отношения 3) арифметическая операция 4) сложная операция
132
257
Ответы на вопрос:
Var x,temp: string; first,last: char; k1,k2: integer; begin write ('x = '); readln (x); k1: =0; k2: =0; first: =x[1]; last: =x[length(x)]; temp: =x; while (pos(first,temp)> 0) do begin inc(k1); delete (temp,pos(first,temp),1); end; temp: =x; while (pos(last,temp)> 0) do begin inc(k2); delete (temp,pos(last,temp),1); end; if (k1> k2) then writeln ('first') else if (k2> k1) then writeln ('last') else writeln ('equal'); end.
Популярно: Информатика
-
Гуманитарий77707.02.2021 23:52
-
karolinetynfag09.05.2021 13:30
-
усман1410.07.2020 14:24
-
DanilSoldatkin30.05.2022 11:47
-
volk91005.06.2022 12:34
-
polina0408127.08.2021 16:14
-
Тарасй10.08.2021 13:04
-
Skynet1431.01.2022 00:03
-
ola12429.10.2021 10:32
-
dima102529.03.2023 15:53