28.05.2019 12:50, ikecantona

Построение блок-схем 1. найти сумму четных чисел из первых 10 натуральных чисел. program z31; var n, s: integer; begin s: =0; for n: =1 to 10 do if (n mod 2)=0 then s: =s+n; writeln (‘сумма чётных из первых 10 натуральных чисел равна ‘, s); end. 2. наименование сезона по номеру месяца program z32; var month: integer; season: string; begin write('введите номер месяца: '); readln(month); if (month=1) or (month=2) or (month=12) then season : = 'зима' else if (month=3) or (month=4) or (month=5) then season : = 'весна' else if (month=6) or (month=7) or (month=8) then season : = 'лето' else season : = 'осень'; writeln('это ',season) end.

Всего ответов: 2

Похожие вопросы:

Иконка предмета
Информатика, 09.03.2019 01:00
Ввести число оно больше 8 разделить его на 4, если меньше или равно 8 то умножить на пять! if x> 8 then y: =x/4 else y: =x*5
Ответов: 2
Иконка предмета
Информатика, 03.03.2019 11:02
Что не так в программе?
Ответов: 3
Иконка предмета
Информатика, 10.03.2019 09:17
Язык python (возможно, кто знает pascal тоже самое) как составить цикл while, чтобы пользователь вводил в нем в пределах от 10 до 25000. если он введет меньше 10 или больше 25000, то цикл повторится и будет до тех пор, пока пользователь не введет число в пределах от 10 до 25000
Ответов: 3
Иконка предмета
Информатика, 17.03.2019 18:00
Какая кнопка заменит ctrl+s? варианты ответов: f1 f2 f3 f4
Ответов: 2
Иконка предмета
Информатика, 17.03.2019 23:00
Выполнить творческую работу на тему .источники информации. это может быть сказка или короткий рассказ. о том, откуда человек получает информацию.
Ответов: 2
Иконка предмета
Информатика, 17.03.2019 22:09
Найдите значения переменных a и b: a: =22 div (17 mod 3); b: = 37 mod a*3 - 18 mod 5*4
Ответов: 3
Иконка предмета
Информатика, 20.03.2019 22:04
Составить блок-схему s=2++n. сумма чётных чисел.
Ответов: 2
Иконка предмета
Информатика, 28.03.2019 03:40
Даны две переменные вещественного типа: a, b. перераспределить значе- ния данных переменных так, чтобы в a оказалось меньшее из значений, а в b — большее. вывести новые значения переменных a и b.
Ответов: 1
Иконка предмета
Информатика, 29.03.2019 08:10
Выяснить есть ли в трёхзначном числе одинаковые цифры
Ответов: 3
Иконка предмета
Информатика, 30.03.2019 22:40
Для кодирования нотной записи используется 7 значков -нот. каждая нота кодируется одним и тем же минимально возможным количеством бит. чему равен информационный объем сообщения, состоящего из 180 нот?
Ответов: 1
Иконка предмета
Информатика, 02.04.2019 20:24
Информатика! вычислите в паскале: s=(a+b+c) *k. я тут сижу ломаю голову уже где-то 1 ! буду ! ​
Ответов: 3
Иконка предмета
Информатика, 09.04.2019 11:23
Пароль из 8 букв подсказка грязьразгадайте я забыл пароль от ​
Ответов: 1

Вопросы по другим предметам:

Категория
Обществознание, 28.05.2019 02:40
Популярные вопросы
Вопросов на сайте: 18165928