Ультра тонкий дизайн. с 8 ядер процессором. оперативной памятью 16 гиг. full HD или 4k изображения.
ПО system of people brain. SPB. система как мозг человека
Var
x, sum: integer;
begin
read(x);
while(x > 0) do
begin
if(x mod 10 <= 5) then sum := sum + x mod 10;
x := x div 10;
end;
write(sum);
end.
92 Но это не точно так как я сам немного не понял по-этому особо доверяться мне не стоит.
var a:string;
begin
Writeln('В каком году началась Великая Отечественная война?');
Readln(c);
if c = '1945' then Writeln ('Правильно!')
else Writeln('Вы ошиблись, Великая Отечественная война началась в 1945 году');
end.