Я бы сделал так:
var a,a1,a2,a3,a4:integer;
begin
write ('Введите четырехзначное число: '); read (a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
writeln ('Первая цифра: ',a1);
writeln ('Вторая цифра: ',a2);
writeln ('Третья цифра: ',a3);
writeln ('Четвёртая цифра: ',a4);
<span>end.
<u>Этот вид более эстетичный</u> ;)
</span>
Алгоритм:
Начало
Ввод t
Если t>1 часа, то
начать выполнение операторов
ввод S;
V=S/t;
вывод V
закончить выполнение операторов
иначе
начать выполнение операторов
ввод V;
S=Vt;
вывод S;
закончить выполнение операторов
Var S,V,t:integer;
begin
read(t);
if t>1 then
begin
read(s);
v:=s/t;
writeln('Скорость=',v);
end
else
begin
read(v);
s:=v*t;
writeln('Расстояние=',s);
end;
end.
Является основателем теории передачи информации, нашедшей применение в
современных высокотехнологических системах связи. Шеннон внес огромный
вклад в теорию вероятностных схем, теорию автоматов и теорию систем
управления — области наук, входящие в понятие “кибернетика”. В 1948 году
предложил использовать слово “бит” для обозначения наименьшей единицы
информации (в статье “Математическая теория связи”).
<span>OS/2, AmigaOS, Mac OS, Solaris, Linux и UNIX, Windows, </span><span>Novell.</span>