Или одна тройка или две единицы. Тройка больше, возьмем ее
нет восьмерок или не больше двух девяток. Ок возьмем без восьмерок, и все девятки как наибольшее
Старшие разряды больше, младшие меньше
Получаем 999993
program raf105;
var
s:string;
a,i:integer;
begin
write('Введите строку: ');
readln(s);
s:= lowercase(s);
for i:=1 to length(s) do
if s[i] = 'а'
then a+= 1;
writeln('В ведённой строке буква "а" встречается ',a,' раз(а)');
end.
<em><u>Язык PascalABC</u></em>
3. (Если сами прямоугольники не квадраты, то 1)
A) 3*7 div 2 mod 7/3 - trunc(8.99);
1) 3*7 = 21;
2) 21 div 2 = 10;
3) 10 mod 7/3 = (10*7) mod 3 = 70 mod 3 = 1;
4) trunc(8.99) = 8 (trunc() возвращает целую часть числа)
5) 1 - 8 = -7
Ответ: -7.