Составить программу, которая определяет, чётно или нечётно количество символов в слове
131
159
Ответы на вопрос:
program xxx;
s : string;
a : integer;
begin
writeln('введите строку символов: '
readln (s);
a: = length(s);
if a mod 2= 0 then writeln ('четное') else writeln('не четное');
readln;
end.
программа на языке паскаль
program pr;
s: string;
begin
readln (s);
if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');
readln;
end.
Текст –это любое словесное высказывание , напечатанное , написанное или существующеев устной форме .
Популярно: Информатика
-
sna200319.10.2022 12:06
-
Топирчик25.07.2020 02:16
-
умник159411.12.2022 21:51
-
zolotuk12310.02.2023 22:20
-
hdjddngddh31.05.2021 08:42
-
bogdan1001b18.03.2023 09:03
-
akrontsova18.10.2022 23:11
-
kenetic21323202.01.2022 14:17
-
helpmepleasehelp117.03.2023 10:46
-
sartakova200302.11.2021 22:19