М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
666SmEtAnKa666
666SmEtAnKa666
18.05.2022 18:36 •  Информатика

Решить на паскале в каждом стакане (200 мл) компота должно быть n граммов сахара. сколько граммов сахара нужно засыпать в трёхлитровую банку? решить !

👇
Ответ:
Angelina27609
Angelina27609
18.05.2022
Const glass = 200;
var n, bottle: integer;

begin
write("Введите кол.-во сахара на стакан в граммах:");
read(n);

bottle = glass*15*n;

writeln(Кол.-во сахара на бутылку объёмом 3л. равняется ", bottle);

end.
4,4(98 оценок)
Открыть все ответы
Ответ:
HELP2606
HELP2606
18.05.2022
Александр Есенин
Жили – были  клавиатура, монитор, память и  процессор. Жили  они  дружно,  пока  не  возник у  них спор, кто  из них  главнее.
   Клавиатура  говорит:
- Я  главнее, чем  вы.  Я  нужна  для ввода  числовой  и   текстовой   информации.  Я  имею  104  клавиши   и  3  световых   индикатора  в  правом  верхнем  углу,  информирующих   о  режимах  работы.  У  меня   есть  несколько  групп  клавиш:  алфавитно-цифровые,  клавиши   редактирования  и  листания  документов,  управления   курсором,  специальные,  функциональные,  Windows – клавиши, цифровой  блок,  клавиши  управления  питанием.  Без  меня  вы  не  сможете  ввести  информацию,  даже  на  калькуляторе   не  посчитаете,  т.к.  цифры  я  ввожу – то.
- Да, это  ты  права, - говорит монитор. – Но  я  всё  равно  главнее.  Смотрите,  если   информация  вводится   при клавиатуры,  то  где  она  выводится?  Я, я, а  не  она  являюсь   универсальным  устройством  вывода  информации.  Информация   на   моём  экране  представляется      в  виде  растрового  изображения,  которое  формируется   из  отдельных   точек   (пикселей). Качество  изображения  определяется   моей  разрешающей Так что главный  только  я!
- Куда тебе! – говорит  память. – Я самая  главная. Данные  и  программы  хранятся  в  оперативной (внутренней) памяти, т. е.  во   мне. Я   представляю   собой   последовательность  пронумерованных,  начиная  с  нуля,  ячеек.  Мой   объём  можно  определить  по  формуле Jоп.=Jяч.  •  N .  А  у  вас  так  нельзя!  Меня  называют  «мозгом»!   Значит,  я  главная!
-  Вас  послушаешь, я  вообще  тогда не  нужен!  А  на  самом – то  деле,  я  ведь  самый  главный!  Я, процессор!  Я  центральное  устройство  компьютера,   которое  обрабатывает  данные  в  соответствии  с  заданной  программой.  Я  со  всеми  вами  работаю. Я  самый  главный!
-Нет, я!
-Нет, я!
-Нет, я!
-Нет, я!
А  человек  спор  слышал  и  сказал: 
-Что  вы  спорите?  Вы  же  сами  ответили  на  вопрос,  кто  из  вас  главнее!
-Мы  ответили?
-Вы. Главные  вы  все. Только в  совокупности, когда  вы  все  вместе, компьютер  будет  работать! Кто  будет  вводить  информацию, если  не   клавиатура, и  выводить, если  не  монитор?  Кто  будет  хранить  её,  если  не  память? Кто  будет  обрабатывать данные  в  соответствии с  заданной  программой,  если  не    процессор?    Не  знаете? Вот! Так  что  вы  зря спорите.  Ведь  главные  вы   все!
Подумали  клавиатура, монитор, память  и  процессор  и  помирились. С  тех  пор  они  живут  счастливо. Ведь  сила  их – в  единстве! 
4,7(36 оценок)
Ответ:
1. Треугольник будет существовать если будут выполнятся одновременно три неравенства:
x + y > z
x + z > y
y + z > x

Программа:

var x, y, z: real;
begin
  writeln('Введите стороны треугольника x, y, z: ');
  read(x, y, z);
  if (x + y > z) and (x + z > y) and (y + z > x) 
  then writeln('Треугольник существует')
  else writeln('Треугольник не существует');
end.

2. Думаю, здесь излишни объяснения.

Программа:

var x, y, z: real;
begin
  writeln('Введите три числа: ');
  read(x, y, z);
  writeln('В интервале (1; 3) лежат числа: ');
  if (x > 1) and (x < 3) then writeln(x);
  if (y > 1) and (y < 3) then writeln(y);
  if (z > 1) and (z < 3) then writeln(z);
end.

Блок-схемы в приложении:
Составить блок-схему и написать программу на языке pascalabc.net. 1. даны действительные положительн
Составить блок-схему и написать программу на языке pascalabc.net. 1. даны действительные положительн
4,5(30 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ