1. написать программу, которая спрашивает «который час? » и, в зависимости от введенного времени, выводит на экран : «доброе утро», «добрый день», «добрый вечер», «спокойной ночи». 2. составьте программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным весом и выдает рекомендации о необходимости поправиться или похудеть. оптимальный вес вычисляется по формуле: рост (в сантиметрах) – 100. решить 2

1) var x: integer; beginwrite('который час? '); read(x); if (x> =0) and (x< 6) then writeln('спокойной ночи'); if (x> =6) and (x< 12) then writeln('доброе утро'); if (x> =12) and (x< 18) then writeln('добрый день'); if (x> =18) and (x< 24) then writeln('добрый вечер'); end.2)var a,b,x: integer; beginwrite('введите рост: '); read(a); write('введите вес: '); read(b); x: =a-100; if x> b then writeln('нужно поправиться')else writeln('нужно поxудеть'); end.

Vb. dim n as integer        n = inputbox("введите n")        dim summ as integer        dim i as integer         for i = 1 to len(n)             summ += cint(mid(cstr(n), i, 1)) '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535         next         msgbox("количество цифр числа n=" & len(n) & ", сумма его цифр равна " & summ & " и первая цифра -" & cint(mid(cstr(n), 1,

Vb. dim i as integer dim summ as integer dim simv as string        simv = "бвгджзклмнпрстфхцчшщ"        dim n as string        n=inputbox ("введите строку")         for i = 1 to len(n)             if instr(simv, mid(cstr(n), i, 1)) > 0 then summ += 1         next       '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535     msgbox("всего согласных в строке " & summ & ", что является " & len(n) & "/" & summ & "=" & len(n) / summ & " долей")