Помогите решить 2 задачи,пожалуйста... 1)Определить является ли введенное с клавиатуры число,положительным.отрицательным,или 0-м. 2)Меньше из 2-х
5-9 класс
|
заданных чисел заменить числом 10.
1) Program Pr;
var a:integer;
Begin
Writeln('Введите число');
Readln(a);
if a>0 then writeln('Число положительно');
if a=0 then writeln('Число является 0-эм');
if a<0 then writeln('Число отрицательно');
end.
2)Program Pr;
var a,b:integer;
Begin
Writeln('Введите 2 заданых числа');
Readln(a);
Readln(b);
if a>b then b:=10
else a:=10;
writeln(a);
writeln(b);
end.
(Проверено и откомпелировано с помощью Pascal.NET)
Другие вопросы из категории
Плизззззз!!!Умоляююю!!!СРОЧНО НАДО СРОЧНО!!!!!!!
2. Сколько байт информации передается за 10 секунд по линии связи со скоростью 400 бит в секунду?
Читайте также
1.Даны 3 целых числа-А,В,С. Вычислить их сумму и произведение
2.Вывести на экран случайное число от 0 до 10
3.Вывести на экран двузначное случайное число
4. Найти сумму цифр двузначного числа
1. Определить принадлежит ли введенное с клавиатуры число интервалу (0,5)
2.Ввести число с клавиатуры. Если оно положительно,то найти квадрат этого числа,если отрицательно-модуль.
3.Найти большее из двух чисел ,заданных случайным образом из интервала [-7;23]
4.Ввести двузначное число с клавиатуры. Четна ли сумма его цифр?
5. Ввести трехзначное число. Расположить цифры в порядке возрастания
№20. Даны величины углов треугольника. Определить является ли это треугольник:
а) остроугольным
б) тупоугольным
в) прямоугольным
г) равносторонним
д) равнобедренным.
№21. Определить, какая из двух точек - M1(x1,y1) или M2(x2,y2) - расположена ближе к началу координат. Вывести на экран дисплея координаты этой точки.
№22. Даны действительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.
№23. Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия:
а) квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;
б) сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр;
в) среди цифр заданного трехзначного числа есть одинаковые;
г) среди первых трех цифр из дробной части заданного положительного вещественного числа есть цифра 0.
1. Даны 2 числа Х и Y. Найдите среднее арифметическое кубов этих числе.
2. Дана длина ребра куба. Найти площадь грани, площадь поверхности и объем куба.