// методом перебора
// Ответ: 15276
const m=57;
n=67;
var i,x:word;
q:boolean;
begin
i:=99;
q:=true;
while (i<1000) and q do begin
i:=i+1;
x:=15000+i;
if (x mod m=0) and (x mod n=0) then
q:=false;
end;
writeln(x);
end.
<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.
1) cpp - программа на С++
2).cdr - <span>векторный файл
</span>3).swf - <span>flash-анимация
</span>4).html - <span>web-страница</span>
Выбирай точка с запятой, например:
echo "Hello World";