Я бы сделал так:
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>
<span>для того чтобы передвигаться куда-либо, и побыстрей </span>
Школа. По каким параметрам надо проанализировать систему?
Носитель-это то же самое и USB,флешки и тд
Системный блок - физически представляет собой корпус,который наполнен внутри аппаратным обеспечением для создания компьютера.