Var a,s:integer;
begin
write('a = ');
readln(a);
s:=a div 10 + a mod 10;
writeln('s = ',s);
if s mod 2 = 0
then writeln('Верно')
else writeln('Неверно');
end.
Пример:
a = 25
s = 7
Неверно
10000+4000+600+50..........
(1), т.к. поднялся в Школа и опустился в *Школа\Задания\Математика
begin
var n := ReadlnInteger;
var a := ReadArrInteger(n);
a := (a.Where(t -> t > 0) + a.Where(t -> t = 0) +
a.Where(t -> t < 0)).ToArray;
a.PrintLn
end.
На мой взгляд это:
<span>1.Исследование информационных процессов любой природы.
2.Разработка информационной техники и создание новейшей технологии переработки информации на базе полученных результатов исследования информационных процессов.
</span>3.Решение научных и инженерных проблем создания, внедрения и обеспечения эффективного использования компьютерной техники и технологии во всех сферах общественной жизни.<span>
</span>