var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.
Var a:integer;
begin
write('a = ');
readln(a);
writeln('1-я цифра: ',abs(a) div 100);
writeln('2-я цифра: ',abs(a) div 10 mod 10);
writeln('3-я цифра: ',abs(a) mod 10);
end.
Пример:
<span>a = 724
1-я цифра: 7
2-я цифра: 2
3-я цифра: 4</span>
Прелесть языка PascalABC.NET в том, что мы читаем задачу и параллельно пишем строчку программы, выполняющую все необходимое.
Шутка, конечно, но в данном случае так оно и было.
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Range(4,40,4).Select(x->Sqrt(2*x)).Sum.Println
end.
Ответ:скорее в
Объяснение:калькулятор может быть на солнечной энергии кремлёвские куранты работают на чистой святой силе
если средний 5 то всего их 9