Написать программу, которая требует ввода времени дня и, в зависимости от введённого значения, желает доброго утра, доброго дня, доброго вечера или спокойной ночи. среда програмирования: pascal abc.net

124

385

Посмотреть ответы 2

Ответы на вопрос:

Локи30

Информатика

4,7(77 оценок)

Program blablsbls; var time: integer; begin writeln('введите текущий час! ') readln(time); if time > = 7 and time < 11 then writeln('доброе утро! '); if time > = 11 and time < 18 then writeln('добрый день! '); if time > = 18 and time < 24 then writeln('добрый вечер! '); if time > = 0 and time < 7 then writeln('спокойной ночи! '); end. как-то так, если мне память на счет синтаксиса не изменяет.

AnnLondonFencing

Информатика

4,6(72 оценок)

Сначала немного . о модуле тут смысла нет говорить, поскольку все an - суть положительные величины на интервале (0; 1). uses crt; function ai(n: integer): real; var i: integer; p: real; begin p: =1; for i: =n+1 to 2*n do p: =p*i; ai: =1/p end; var i: integer; eps,s,an: real; begin clrscr; write('eps='); read(eps); s: =0; i: =1; repeat an: =ai(i); if an> =eps then begin s: =s+an; inc(i) end until an< eps; writeln('s=',s); readkey end. тестовые решения: eps=0.07 s= 5.8333333333e-01 eps=0.000001 s= 5.9229647667e-01 eps=1e-8 s= 5.9229653448e-01 для контроля результата можно отметить, что сумма первых 1000 членов ряда равна приблизительно 5.922965365е-01