<span>Универсальное программа управляемое устройство для оброботки информации это </span>компьютер
Ответ:Аскар определит задуманное число за 3 попытки.
Объяснение:
Var a,b,c: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b)
End.
Var a,b,c,d: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
d:=a mod 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b,d)
End.
(PascalABCNET)
Program zadanie;
begin
writeln('буря мглою небо кроет');
writeln('вихри снежные крутя');
writeln('то как зверь она завоет,');
writeln('то заплачет ,как дитя');
end.