Напишите на языке Паскаля.
5-9 класс
|
Дано число. Является ли оно двухзначным чётным,кратное трём
var a:integer;
readln(a);
If (a<100) and (a>9) then writeln ('двух значное');
If a mod 2 = 0 then writeln('четное');
If a mod 3 = 0 then writeln ('кратное');
end.
var n:integer;
begin
readln(n);
if (n<=99) and (n>=10) and (n mod 6 = 0) then write('является')
else write('не является');
end.
Комментарий удален
Другие вопросы из категории
a)Любое словесное высказывание , напечатанное , написанное или существующее в устной форме. -...
б)Информация , представленная в форме письменного текста.-...
в)Любой текст , созданный с помощью текстового редактора , вместе с включёнными в него нетекстовыми материалами.-...
г)Цифра , буква , знак препинания и т. д.
Читайте также
вычисления: а) 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)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
Постараться использовать минимальное количество дополнительных переменных.