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

Оставить программу ввода величины времени суток t (0< =t< =24)и выдачи текста: "вы уже проснулись? " - если t< 10 "не пора ли обедать? " - если t=12 "еще не вечер! " - если t> =18 "как работается? " - в остальных случаях.

👇
Ответ:
lera0900
lera0900
16.03.2021
Var
  t: integer;

begin
  readln(t);
  if t < 10 then print('Вы уже проснулись?')
  else if t = 12 then print('Не пора ли обедать?')
  else if t >= 18 then print('Еще не вечер!')
  else print('Как работается?')
end.
4,4(25 оценок)
Ответ:
нурик283
нурик283
16.03.2021
Var
  t:integer;
begin
  Write('t='); Read(t);
  case t of
  0..9:Writeln('Вы уже проснулись?');
  12:Writeln('Не пора ли обедать?');
  18..24:Writeln('Еще не вечер!');
  else Writeln('Как работается?')
  end
end.
4,6(12 оценок)
Открыть все ответы
Ответ:
ххх49
ххх49
16.03.2021
Моде́ль (фр. modèle, от лат. modulus — мера, аналог, образец) — отображение, копия, схема, макет, изображение, некоторый материальный или мысленно представляемый объект или явление, замещающий упрощением оригинальный объект или явление, сохраняя только некоторые важные его свойства, например, в процессе познания (созерцания, анализа и синтеза) или конструирования. Другими словами, модель — это объект или явление, аналогичные, то есть, в достаточной степени повторяющие свойства моделируемого объекта или явления (прототипа) , существенные для целей конкретного моделирования, и опускающие несущественные свойства, в которых они могут отличаться от прототипа.
4,5(4 оценок)
Ответ:
leogorec06
leogorec06
16.03.2021
А) Program cifr;
Uses crt;
var n,l:integer; s:string;
Begin
read(n);
str(n,s);
l:=length(s);
  if (s[1]<>s[2]) and (s[2]<>s[3]) and (s[1]<>s[3])
    then begin writeln('Одинаковых цифр нет') end
    else writeln('Одинаковые цифры присутствуют');
end.

Б) Program Stroke;
Uses Crt;
Var s: string; n,i,j,l: integer;
Begin
  ReadLn(n);
  str(n,s);
  l:=length(s);
  j:=0;
for i := 1 to l div 2 do begin
  if s[i]=s[length(s)-i+1]
    then j:=1 end;
if j=1 then 
    writeln('Да, число является палиндромом')
    else writeln('Нет, число не является палиндромом');
End.
4,5(71 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ