diken1
06.04.2021 09:52

Какая команда чтоб написать текст​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
FoxyDi
29.08.2022 12:42
Рисование линий и фигур (прямых линий, произвольных линий, кривых, эллипсов или кругов, прямоугольников или квадратов, многоугольников),размещение текстов на рисунке,работа с цветом - заполнение областей цветом, рисование с кисти, рисование с распылителя, изменение палитры, преобразование цветных рисунков в черно-белые, обращение цветных рисунков, изменение цвета нарисованных линий, копирование цвета объекта,работа с фрагментами рисунков - выделение фрагмента, копирование фрагмента, сохранение фрагмента в отдельном файле, вставка рисунка или фрагмента из библиотеки или другого файла,изменение рисунка - изменение размеров, изменение масштаба, отображение и поворот рисунка, растяжение и наклон.
0,0(0 оценок)
Ответ:
tratatya
01.08.2020 05:49
Uses  crt;
var  item, rub, doll: real; 
  job: integer;
begin   
writeln('Введите курс ру по отношению к дол: '); 
read(item);//Вводим курс рубль-доллар 
writeln('Перевести из (рубля в доллар(2)) или (доллар в рубль(1))?'); 
read(job);//Вводим режим 
case job of
  2:      begin       
writeln('Введите кол-во рублей: ');       
 read(rub);//Вводим рубль       
 rub := rub / item;       
writeln('doll = ',rub);
end;
1:      begin       
writeln('Введите кол- во долларов: ');       
read(doll);//Вводим доллар       
doll := doll * item;       
 writeln('rub = ',doll);
end;
 end;    
 end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота