.............................................................
449
58
На 4 ответа не знаю :(
5. С begin начинается непосрелствеено написание всего года. Begin переводиться как начало, т.е. начало алгоритма. Так же begin используется, если после условного оператора и опепаторов цикла требовалось выполнить несколько операций.
6. Real это тип с плавающей точкой. Например: 2.3, 4.507, 5.0 и т.д. и т.п.
7. Char это символьный тип. Например: 'd', '3', ',' и т.д. и т.п.
8. К операторам по типу write, или read добавляется оператор -ln
9. Для ввода данных используется оператор read
10. a:=b+c;
Writeln('a= ', a);
End.
<h3>Если число цифр нечетное, среднюю цифру не учитываем.</h3><h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (n, S) := (ReadInteger, 0);
loop Trunc(Log10(n) + 1) div 2 do
begin
S += n mod 10;
n := n div 10
end;
S.Println
end.
<h2>12345678</h2><h2>26 </h2>
program asd;
uses crt;
var
a:integer;
begin
for a:=10 to 100 do
begin
writeln(a,' ');
end;
end.