Var
r,a:real;
begin
readln(a);
a:=a*100;
r:=a/4.45;
writeln(r:0:5);
end.<span>
</span>
В феврале 1946 года был создан первый компьютер.
Последовательности изображений<span> – </span>фильмы<span>, </span>мультфильмы<span> и т.д. </span>...<span> их информационных свойств, </span>называются<span> информационными объектами.</span>
Var x, a, b, c, s: integer;
begin
write('Введите число: '); readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
s := a + b + c;
writeln('Число принадлежит ', a, ' сотне');
if(s mod 2 = 0) then writeln('Сумма цифр четная')
else writeln('Сумма цифр нечетная');
end.
a - сотни
b - десятки
с - единицы
Надеюсь я правильно тебя понял.
Для перевода экрана в графический режим.