<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var t:integer;
var k:=0;
repeat
Read(t);
if t.ToString.Where(c->c='5').Count=2 then k+=1
until t=0;
Writeln('Количество чисел с двумя пятерками равно ',k)
end.
Word, Open Office, ,Notepad++, AkelPad, UltraEdit,Cтандартный блокнот Windows, AbiWord, WordPerfect,Notepad++, AkelPad, UltraEdit,Cтандартный блокнот Windows
Значение х должно быть меньше 3 и быть меньше 2 или больше 2, то есть меньше 3 и не равно 2.
ответ а) удовлетворяет требованиям
A = 130, b = 449
1) 137
2) 140
3) 215
4) 1016
Иными словами подходят варианты 1-3, не подходит только 4