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

Составить программу на языке паскаль известна температура больного за 20 дней пребывания в больнице. можно ли еговыписывать, если для этого требуется, чтобы не менее половины всех дней, когда у негобыла температура ниже 37°, приходилось на вторую половину его пребывания вбольнице?

👇
Ответ:
ipolevoy1
ipolevoy1
11.04.2023
Var t:array[1..20] of real;   
w,i:integer;
begin 
 w:=0; 
 for i:=1 to 20 do    
  readln(t[i]); 
 for i:=11 to 20 do    
  if t[i]<37 then w:=w+1; 
 if w=10 then writeln('Можно')   
  else writeln('Нельзя');
end.   
4,8(10 оценок)
Открыть все ответы
Ответ:
lubawa1o
lubawa1o
11.04.2023
1 Задача
1) Начало
2) i = 1
2.1) K = i^2
2.2) Вывод K
2.3) i = i + 1
2.4) i > 5 ?
Если Да, возвращаемся на 2.1)
Если Нет, окончание цикла.
3) Конец.

2 Задача
1) Начало
2) k = 0 (счетчик нечетных чисел)
3) Ввод первого числа A1
3.1) Если [A1 / 2] < A1 / 2, то k = k + 1 (ввели нечетное число)
4) Ввод второго числа A2
4.1) Если [A2 / 2] < A2 / 2, то k = k + 1 (ввели нечетное число)
5) Ввод третьего числа A3
5.1) Если [A3 / 2] < A3 / 2, то k = k + 1 (ввели нечетное число)
6) Вывод k
7) Конец

3 Задача
1) Начало
2) Объявление массива А() пока неизвестного размера (динамического)
3) i = 1
3.1) Ввод очередного числа A(i)
3.2) Если A(i) = 0, то переход на 4)
3.3) i = i + 1
3.4) Возврат на 3.1)
4) Переопределение динамического массива A(i) размером i элементов.
5) Конец
4,4(59 оценок)
Ответ:
Elizzzavettta
Elizzzavettta
11.04.2023
1 Задача
1) Начало
2) i = 1
2.1) K = i^2
2.2) Вывод K
2.3) i = i + 1
2.4) i > 5 ?
Если Да, возвращаемся на 2.1)
Если Нет, окончание цикла.
3) Конец.

2 Задача
1) Начало
2) k = 0 (счетчик нечетных чисел)
3) Ввод первого числа A1
3.1) Если [A1 / 2] < A1 / 2, то k = k + 1 (ввели нечетное число)
4) Ввод второго числа A2
4.1) Если [A2 / 2] < A2 / 2, то k = k + 1 (ввели нечетное число)
5) Ввод третьего числа A3
5.1) Если [A3 / 2] < A3 / 2, то k = k + 1 (ввели нечетное число)
6) Вывод k
7) Конец

3 Задача
1) Начало
2) Объявление массива А() пока неизвестного размера (динамического)
3) i = 1
3.1) Ввод очередного числа A(i)
3.2) Если A(i) = 0, то переход на 4)
3.3) i = i + 1
3.4) Возврат на 3.1)
4) Переопределение динамического массива A(i) размером i элементов.
5) Конец
4,6(32 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ