В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Kjabarovsk
Kjabarovsk
21.12.2021 12:24 •  Информатика

Запустить программу ПРОВОДНИК с главного меню. Указать, какая папка открыта на левой панели ПРОВОДНИКА.
1. На правой панели ПРОВОДНИКА создать папку Эксперимент.
2. На левой панели развернуть папку Мои документы щелчком на значке узла «+». Убедиться в том, что на левой панели в папке Мои документы образовалась вложенная папка Эксперимент.
3. Открыть папку Эксперимент. Указать содержимое правой панели ПРОВОДНИКА.
4. Создать на правой панели ПРОВОДНИКА новую папку НОМЕР ГРУППЫ внутри папки Эксперимент. На левой панели убедиться в том, что рядом со значком папки Эксперимент образовался узел «+». О чем он свидетельствует?
5. На левой панели ПРОВОДНИКА разыскать папку TEMP, но не раскрывать её.
6. Методом перетаскивания переместить папку Эксперимент с правой панели ПРОВОДНИКА на левую - в папку TEMP.
7. На левой панели ПРОВОДНИКА открыть папку TEMP. На правой панели убедиться в наличии в ней папки Эксперимент.
8. Разыскать на левой панели ПРОВОДНИКА Корзину и перетащить папку Эксперимент на её значок.​

Показать ответ
Ответ:
zalozhnik
zalozhnik
09.06.2022 13:14
Var money, cost,summa : real;
count : integer;
 tovar: string;
begin writeln('Введите исходные данные: ');
  writeln('Какой товар вы покупаете? ');
 readln(tovar);
  writeln('По какой цене? ');
 readln(cost);
  writeln('Сколько штук? ');
 readln(count);
  summa := cost*count; writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2);  writeln('Сколько денег даете? ');
 readln(money);
  if money=summa then writeln('свободен, под расчёт') else if money > summa then writeln('Ваша сдача: ', money-summa) else writeln('Нужно добавить: ', summa-money,. ');
 end.
0,0(0 оценок)
Ответ:
VIP161
VIP161
14.04.2021 21:54

var n,i,c,m,p:integer;

begin

 m:=0;

 p:=0;

 writeln('Введите количество чисел.');

 readln(n);

 for i:=0 to n-1 do

 begin

   readln(c);

   if c < 0 then m:=m+1

   else if c = 0 then continue

   else p:=p+1;

 end;

 if p < m then writeln('Отрицательных чисел больше, чем положительных.')

 else if p > m then writeln('Положительных чисел больше, чем отрицательных.')

 else writeln('Равное количество положительных и отрицательных чисел');

end.

Объяснение:

Переменные:

n - количество чисел, i - счетчик цикла for, c - считанное значение, m - счетчик отрицательных чисел, p - счетчик положительных чисел.

Считаем, что "0" - ни положительное, ни отрицательное число.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота