Const n=10;
var a:array[1..n]of integer;
i,k,l,aa: integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if (a[i] mod 11 =0) and (a[i]<1000) and(a[i]>99) then
begin
k:=0;
aa:=a[i];
for i:=1 to 3 do
begin
l:=aa mod 10;
if l=3 then k:=1;
aa:=aa div 10;
end;
if k=1 then writeln(a[i]);
end;
end.
<span>Любознательный малыш
Взял компьютерную мышь</span><span>И кричит:
«Борис, Борис!
Кушай мышку,
Кис-кис-кис!»
Кот из кухни прибежал,
Мышь понюхал и сказал:
«Кушай сам её, глупыш,
<span> Мне нужна живая мышь!»
</span></span><span>***
На компьютерную мышку
Виртуальный смотрит кот,
Виртуальными когтями
Изнутри экран скребёт.
Но коту послала мышка
Мэйл:
СОБАКА
ТОЧКА
Р – Р – У -У!
Испугался кот-трусишка
И удрал в свою игру.</span>
»
Два цикла? Я что-то не вижу таких решений без изменения переменной внутри циклов, что нехорошо. Твою задачу можно по-простому сделать одним циклам и двумя переменными.
1 бит т.к красных и черных в колоде одинаковое кол-во.
В лучший ответ пожалуйста, 2 до отличника не хватает