//Pascal ABC.NET v3.1 сборка 1172
begin
Var seq:=SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray;
writeln(seq.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1=seq.Min).Select(x->x.Item2));
end.
Пример ввода:
2
3
4
0
Пример вывода:
<span>[1]</span>
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var n:=ReadInteger('n=');
write(n mod 10=4 ? 'число оканчивается на 4' : 'число не оканчивается на 4');
end.
Var
num: Integer;
begin
for num := 1 to 20 do if num mod 2 <> 0 then write( power(num,3):0:0, ' ');
end.
Зрительная: Ваня читает книгу, Даша изучает схему метро
Осязательная: Женя смотрит мультфильм
Звуковая: Саша слушает радио новости
Обонятельная: Вася вдыхает аромат свежеиспеченной булочки
Вкусовая: Лиза пьёт горькую микстуру
Витя ныряет в реку - ???? не знаю, что это может быть.
APL , NPL , Snobol Симула