Var i, n: integer;
begin
readln(n);
for i:=10 to 99 do
if (i mod 10 + i div 10 = n) then
write(i, ' ')
end.
Упаковка-зелёная
Марка "моя семья"
Вкус-яблочный
Цвет сока- зелёный, есть мякоть
:-)
===== PascalABC.NET =====
begin
var (a, b) := ReadInteger2('Введите A и B:');
if (a > 9 * b) then
Println('Нет решения')
else
begin
var s := (a div 9) * '9' + (a mod 9).ToString;
s += (b - s.Length) * '0';
s.Println
end
end.
Int main ...
int a,b,c;
cout <<" 2+2=4? 1-да, 2 - нет " << endl;
cin>>a;
if (a == 1) { <span>cout <<" Верно " << endl;}
if (a==2) </span>{ <span>cout <<" Ошибка " << endl;}
</span>cout <<" 3+2=5? 1-да, 2 - нет " << endl;
<span>cin>>a;
</span>if (a == 1) { <span>cout <<" Верно " << endl;}
if (a==2) </span>{ <span>cout <<" Ошибка " << endl;}
</span>system ("pause");
return 0;
110010=50
50\%девочек, т,половина
1010=10 мальчиков
10=50\%
10+10= 20 учеников
Ответ б