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

Задание2 . Дополните - последовательность из букв латинского алфавита, цифр и символов подчеркивания(например _alf1_a1).
- величина, которая не изменяется в процессе решения задачи. Идентификаторы, зарезервированные на языке, называются .
- зарезервированные на языке программирования слова или символы, выполняющие определенные функции.
уточняют или конкретизируют выполнение необходимых действий команды.
[5] балов

👇
Открыть все ответы
Ответ:
андрей2048
андрей2048
02.11.2021
Ну так правильно пишет , нельзя писать if b>a>c
then begin , пишется правильно так  if (c>b) and (b>a)then begin ,  вообщем вот держи ;

Program qq;var a,b,c,max,min,med : longint;beginwriteln ('введите три числа');read (a,b,c);if (c>b) and (b>a)then beginmax := c;med := b;min := a;End;if (b>a) and (a>c)then beginmax := b;med := a;min := c;End;if (a>c) and (c>b)then beginmax := a;med := c;min := b;End;writeln ('наибольшее число', max);writeln ('среднее число', med); writeln ('наименьшее число', min);End.
4,5(25 оценок)
Ответ:
2303901
2303901
02.11.2021
//PascalABC.Net 3.1.0.1200
uses System;
var
    title: array[2..5]of string := ('Неудовлетворительно', 'Удовлетворительно', 'Хорошо', 'Отлично');

begin
    writeln('Введите оценки');
    var marks := new Dictionary<integer, integer>();
    
    repeat
        var n := ReadInteger();
        if (n > 5) or (n < 2) then continue;
        
        if marks.ContainsKey(n) then
            marks[n] += 1
        else marks.Add(n, 1);
    until marks.Values.Sum >= 10;
    
    for var i := 2 to 5 do
        writeln(title[i], ': ', marks[i]);
end.
4,5(1 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ