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

Написать на паскале (с оператором for) даны два целых числа a и b(a < b).найти сумму всех целых чисел от a до b включительно

👇
Ответ:
Жанночка305
Жанночка305
31.03.2020

var
    A, B, i, Summ : Integer;
begin

    Writeln('Введите числа:');
    Readln(A, B);

 

    Summ := 0;
    for i := A to B do
        Summ := Summ + i;

    Writeln('Сумма равна: ', Summ);
    Readln;
end.

4,7(16 оценок)
Открыть все ответы
Ответ:

На всех этапах своего развития человечество стремилось создать орудия, механизмы, машины облегчающие труд и обеспечивающие защиту от неприятеля. Эволюция современного общества и производства обусловила возникновение и развитие нового класса машин – роботов – и соответствующего научного направления – робототехники. Робототехника на сегодняшний день является интенсивно развивающейся научно-технической дисциплиной, изучающей как теорию, методы расчета и конструирования роботов, их систем и элементов, так и проблемы комплексной автоматизации производства и научных исследований с применением роботов. Предметом робототехники является создание и применение роботов, других средств робототехники и основанных на них технических систем и комплексов различного назначения.

4,6(27 оценок)
Ответ:
Vitalikprofi
Vitalikprofi
31.03.2020

24. 1)заголовок программы

2)блок описания используемых программ

3)блок описания действий по преобразованию данных (программный блок)

25. program <имя программы>;

const <список постоянных значений>;

var <описание используемых переменных>;

begin <начало программного блока>

<оператор 1>;

<оператор 2>;

...

<оператор n>

end.

26. <имя переменной>:=<выражение>

27. write(b1, b2,...bk)

writeln(b1, b2,..,bk)

28. read(b1, b2,..bk)

readln(b1,b2,...,bk)

Надеюсь, что чем-то

4,7(100 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ