Оставить программу ввода величины времени суток t (0< =t< =24)и выдачи текста: "вы уже проснулись? " - если t< 10 "не пора ли обедать? " - если t=12 "еще не вечер! " - если t> =18 "как работается? " - в остальных случаях.
begin readln(t); if t < 10 then print('Вы уже проснулись?') else if t = 12 then print('Не пора ли обедать?') else if t >= 18 then print('Еще не вечер!') else print('Как работается?') end.
Var t:integer; begin Write('t='); Read(t); case t of 0..9:Writeln('Вы уже проснулись?'); 12:Writeln('Не пора ли обедать?'); 18..24:Writeln('Еще не вечер!'); else Writeln('Как работается?') end end.
Моде́ль (фр. modèle, от лат. modulus — мера, аналог, образец) — отображение, копия, схема, макет, изображение, некоторый материальный или мысленно представляемый объект или явление, замещающий упрощением оригинальный объект или явление, сохраняя только некоторые важные его свойства, например, в процессе познания (созерцания, анализа и синтеза) или конструирования. Другими словами, модель — это объект или явление, аналогичные, то есть, в достаточной степени повторяющие свойства моделируемого объекта или явления (прототипа) , существенные для целей конкретного моделирования, и опускающие несущественные свойства, в которых они могут отличаться от прототипа.
А) 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.
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.