<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(20, 20, 40);
a.Println;
a.Transform(t -> t mod 10 = 4 ? t div 2 : t);
a.Println
end.
26 24 38 40 26 27 32 39 32 34 32 28 36 25 40 34 20 26 21 36
26 12 38 40 26 27 32 39 32 17 32 28 36 25 40 17 20 26 21 36
Var a: string;
i: integer;
begin
readln(i);
a := IntToStr(i);
for i := length(a) downto 1 do
write(a[i]);
<span>end.
Как вариант. Строку считывать не стал, раз уж работаем с числом, то и вводится путь число:)</span>
В первой задаче а:=5
А)а=8
В)а=8
С) остаток от деления 5/14 не знаю, может 0, тогда а:=-9, некоторые считают, что само делимое, т.е 5, тогда а=-4
Д) тоже самое или -7 или -5
Var a:real;
begin;
Writeln('Вычисление стоимости покупки с учётом скидки.');
Writeln('Введите сумму покупки и нажмите Enter');
Readln(a);
if (a>500) and (a<1000) then
begin;
writeln('Вам предоставляется скидка 3%');
a:=a/100*97;
end;
if a>1000 then
begin;
writeln('Вам предоставляется скидка 5%');
a:=a/100*95;
end;
Writeln('Сумма покупки с учётом скидки:',a,'руб');
<span>end.</span>
<em><u>Монитор — это устройство оперативной визуальной связи пользователя с управляющим устройством и отображением данных передаваемых с клавиатуры, мыши или центрального процессора.</u></em>
<em><u>Клавиату́ра — комплект расположенных в определённом порядке клавиш для управления каким-либо устройством или для ввода данных. Как правило, кнопки нажимаются пальцами рук.</u></em>
