B = 2468 mod 100 * 10 = 240
A = 2468 div 1000 + 240 = 242
Это обонятельная информация
так как говорится про запах, а нос это орган обоняния
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var a:=ArrRandom(10,0,23); a.Println;
var t:=a.Where(t->t<=20).Where(t->t>18).Count;
Println('t=',t);
end.
Пример:
8 14 20 19 16 6 20 0 2 2
t= 3
Program run;
var T1, T2, T3, min:integer;
begin
write('Введите время Ferrari : ');readln(T1);
write('Введите время Toyota : ');readln(T2);
write('Введите время Ford : ');readln(T3);
if(T1>T2) then min:=T2
else min:=T1;
if(T3>min) then
begin
if(min=T1) then writeln('Самой быстрой была Ferrari.')
else writeln('Самой быстрой была Toyota');
end
else writeln('Самой быстрой машиной был Ford.');
end.
//PascalABC.Net 3.2
begin
var a:=arrrandom (readinteger('n ='), -15, 15); a.Println;
var b: array of integer;
for var i:=0 to length(a)-1 do if not((a[i]<0) or ((a[i] mod 8)=0)) then begin
setLength (b, length(b)+1);
b[length(b)-1]:=a[i]
end;
b.Print;
end.