Ответы на вопрос:
Var c: char; a,b: integer; begin c: ='a'; while (c < > '.') do begin if (c = 'а') then inc(a) else if (c = 'в') then inc(b); read(c); end; if (a > b) then write('true') else write('false'); end.
Популярно: Информатика
-
Вывод стандартный вывод стандартный вова выиграл в олимпиадах n кубков. каждый кубок...
sergiykorolkov827.01.2023 09:56 -
Смс, состоящее из 30 символов написано с раскладки (буквы строчные и заглавные,...
kseniafomina9928.06.2021 01:53 -
1) найти сумму цифр 3-х значного числа. 2) дано 2-х значное число, нужно его развернуть...
maximt02515.03.2021 01:10 -
Uses graphabc; var x,y,r: integer; begin setpenwidth(3); setbrushstyle(bsclear);...
magic000018.08.2020 01:46 -
Два файла с растровым изображение с одним и тем же изображением. во сколько раз...
Гектор3106.08.2022 05:30 -
Напишите все команды которые используются тут. var s,k: integer; begin s : = 3;...
кабанерий06.10.2020 02:10 -
Паскаль. Создать программу. Обчислити площу й периметр трикутника, якщо відомі три...
ilburyatovp0dn1521.09.2021 04:03 -
Толкование выражению погрузился в книги...
waleruwka06.12.2020 22:48 -
Arcsin(1-3b) при каком знчении b имеет смысл выражение...
ZhenyaN12321.12.2020 14:26 -
Найди площадь квадрата,периметр которого равен 36метров...
kashlakova2003114.04.2022 03:52