uses crt;
var
a, b, i : real ;
begin
clrscr;
write('Курс $= '); readln (a);
write ('Сумма в рублях = '); readln (b);
i:= b/a;
writeln (i:6:2);
readkey;
end.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := SeqRandom(10000, -10, 10).Where(t -> t.IsEven)
.Take(15).ToArray;
a.Println;
a.Where(t -> t < 0).Count.Println;
a.Transform(t -> t < 0 ? 0 : t);
a.Println
end.
<h2>Пример</h2><h3>-6 10 2 4 -2 -4 2 2 10 -10 -6 -8 -8 2 -6</h3><h3>8 </h3><h3>0 10 2 4 0 0 2 2 10 0 0 0 0 2 0</h3>
Они почти одинаковы только современый телефон, ну он легче и удобнее
var
n, n1, n2, n3: Integer;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if not ((n >= 100) and (n <= 999)) then begin
Writeln ('Число не является трехзначным!');
Exit;
end;
n1 := n div 100;
n2 := (n div 10) mod 10;
n3 := n mod 10;
Writeln ('Среднее арифметическое цифр = ' + FloatToStr ((n1 + n2 + n3) / 3));
end;