Введіть число, введіть повідомлення, число додатнє чи від'ємне.
5-9 класс
|
Yairishka
24 июня 2013 г., 18:09:53 (10 лет назад)
Sunny1133
24 июня 2013 г., 20:16:31 (10 лет назад)
Var x:real;
Begin
Writeln('введите число');
Readln(x);
If x>0 then writeln ('додатне') else
if x<0 then Writeln('отрицательное‘) else Writeln ('x=0')
End.
Ответить
Другие вопросы из категории
как перевести на язык программирования бейсик и паскаль эти выражения y³-6y=0; 6x⁴+3,6x²=0; x³+3x=3,5x²; x³-0,1x=0,3x²;
9x³-18x²-x+2=0;
y⁴-y³-16y²+16y=0;
p³-p²=p-1;
x⁴-x²=3x³-3x.
пожалуйста помогите
Читайте также
Введите целое число и найти сумму его цифр.
Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10
підрахувати суму всіх натуральних чисел, які діляться на 3 і не перевищють деякого числа N. паскаль, цикл for. думаю, будет примерно
так:
program zad;
var i,r,n:integer;
begin
writeln ('введіть число n');
readln(n);
for i:=i<n and (i mod 3=0) do
begin writeln (r:=...);
end;
readln;
end.
не знаю как найти сумму
Ввести три числа, найти их сумму, произведение и среднее арифметическое
Пример
Введите три числа
4 5 7
4+5+7=16
4×5×7=140
(4+5+7)÷3=5.333333
введены два числа вывести их решение произведение если первое больше второго и разность в противном случае
ввели ц числа определите большее или меньшее 25-ти их сумма
Вы находитесь на странице вопроса "Введіть число, введіть повідомлення, число додатнє чи від'ємне.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.