Вы не указали конкретно, что нужно сделать. Ну, если нужно написать программу в Pascal, то она ниже. Либо напишите нормально что Вам нужно.
Begin
Writeln('На запад от Москвы природа подмосковного края.');
End.
Про "виды" устройств не понятно, а основные устройства без которых компьютер не будет работать такие:
Процессор, материнская плата (на ней же BIOS, оперативная памятьи тд), жесткий диск, контроллер (хотя в данном случае может и не нужен, так как управляет внешними устройствами), блок питания
Этого достаточно, чтоб компьютер работал. А вот чтоб человек мог работать с компьютером еще необходимы устройства взаимодействия или ввода/вывода
<span>Хотя если компьютер является сервером, то достаточно сетевой платы</span>
def maxDigit():
return max(map(int, list(input())))
По-моему, этот вопрос имеет больше отношение к линвистике,
чем к информатике. Тем не менее, относительно текста можно:
1. заменить слова синонимами, акронимами, и .т. п.
2. изменить стилистику текста
3. зашифровать, изменить кодировку символов
4. добавить HTML разметку и др. виды форматирования
5. структурировать, изменить логику высказываний
6. посчитать количество высказываний ложь / истина
7. море других опреаций из разных областей
Ответ:
var
a,x,b,c: real;
begin
write('Введите стоимость покупки = ');
readln(x);
a := x/100;
a := Trunc(a);
a := a*5;
b := x/50;
b := Trunc(b);
b := b*2;
c := x*0.03;
if (a>b)and (a>c)
then
writeln('RP')
else
if (b>a) and (b>c)
then
writeln('BB')
else
if (c>a) and (c>b)
then
writeln('MM')
else
writeln('Суммы равны, Алена выбирает <MM>')
end.
