Ответ:
1991 год, windows 3.1 выпущена 18 марта 1992 года
Объяснение:
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:set of integer:=[];
Writeln('Вводите натуральные числа от 1 до 255, иное число завершит ввод');
repeat
var n:=ReadInteger;
if not (n in [1..255]) then break
else s+=[n]
until false;
Writeln('-'*10);
foreach var k in s do
if k.ToString.ToCharArray.Distinct.Count=1 then Print(k)
end.
<u>Пример</u>
Вводите натуральные числа от 1 до 255, иное число завершит ввод
24
55
68
156
222
77
8
140
500
----------
77 8 55 222
<span>1110+101 = </span>10011
вот так вот
1туда 2 кота
2туда сабаку
3туда 2 гусей обратно 2 котов
4туда гуся
5туда 2 кота
Var stkv,rkr:real;
begin
writeln('Введите сторону квадрата');
readln(stkv);
writeln('Введите радиус круга');
readln(rkr);
if rkr<stkv/2 then write('входит') else write('не входит')
<span>end.</span>