Помогите пожалуйста! Составить программу на языке Паскаль
5-9 класс
|
2)var
a : real;
begin
writeln('введите сколько времени ');
readln(a);
if a=>9 then
writeln('доброе утро сейчас ',a,'времени');
if a>=12 then
writeln('добрый день сейчас ',a','времени');
if a>=18 then
writeln('добрый вечер',a,'времени');
end.
Другие вопросы из категории
продолжается до тех пор, пока не будет получено число большее 1000000. Найдите это число. ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!
соответственно. На каком из этих компьютеров будет успешно выполнена приведенная ниже программа?
program hh;
var s,i: integer;
beginfor i:=1 to 255 do s:=s+i
end.
Читайте также
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке