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

Информатика вопрос жизни и смерти паскаль

👇
Открыть все ответы
Ответ:
provotorov2001
provotorov2001
15.04.2020
Тут есть несколько вариантов, как это можно записать:

Если номера месяцев не превысят 12, то есть имеются ввиду только месяцы одного года, то вот так:

Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
if (N = 12)or(N = 1)or(N = 2) then WriteLn('Зима') //если N = 12, 1 или 2, то выводим 'Зима', иначе идём по следующей ветке if, проверяем следующее условие
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна') // тут точно также N = 3, 4 или 5, если нет - то проверяем следующее условие
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.

Если же номер месяца может превысить 12, то перед проверкой нужно найти остаток от деления этого числа на количество месяцев, то есть на 12. При этом остаток от деления 12 на 12 = 0.

Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
N:= N mod 12;
if (N = 0)or(N = 1)or(N = 2) then WriteLn('Зима')
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна')
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.

Эти же самые условия можно записать иначе:
if (N>=0)and(N<=2) then
или:
if (N>=0)and(N<3) then
4,5(57 оценок)
Ответ:
sonyakaka332
sonyakaka332
15.04.2020

Составим полный код к нашему заданию а:

program ex1;

uses crt;

var

 k, a: integer;

begin

 k := 1;a := 12;

 while a < 100 do

 begin

   a := 2 * a - 4;

   Writeln('Значения a ', a);

   k := k + 1;

   Writeln('Значения k ', k);

 end;

end.

После выполнения программы получаем такие значения:

Значения a 20

Значения k 2

Значения a 36

Значения k 3

Значения a 68

Значения k 4

Значения a 132

Значения k 5

Составим полную программу к заданию б:

program ex2;

uses crt;

var

 k, a, s: integer;

begin

 s := 0;a := 1;k := 1;

 while a < 50 do

 begin

   s := s + a;

   Writeln('Значения s ', s);

   k := k + 1;

   Writeln('Значения k ', k);

   a := k * k;

   Writeln('Значения a ', a);

 end;

end.

После выполнения программы получаем такие значения:

Значения s 1

Значения k 2

Значения a 4

Значения s 5

Значения k 3

Значения a 9

Значения s 14

Значения k 4

Значения a 16

Значения s 30

Значения k 5

Значения a 25

Значения s 55

Значения k 6

Значения a 36

Значения s 91

Значения k 7

Значения a 49

Значения s 140

Значения k 8

Значения a 64

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