Даны 2 числа. Проверить будут ли они положительные.
10-11 класс
|
Program PRIMER;
Uses crt;
var a,b: real;
Begin
write('Введите число а = ');
readln(a);
write('Введите число b = ');
readln(b);
writeln;
if a<0 then
writeln ('Число а отрицательное');
if a>0 then
writeln ('Число а положительное');
if a=0 then
writeln ('Число а равно нулю');
if b<0 then
writeln ('Число b отрицательное');
if b>0 then
writeln ('Число b положительное');
if b=0 then
writeln ('Число b равно нулю');
End.
program primer;
var a,b:integher;
begin
writeln('vvedite a,b:=');
readln(a,b);
if (a<0) and (b<0) then writelln('yes') else writeln('no');
readln;
end
Другие вопросы из категории
Участок сада треугольной формы с длинами границ a=3, b=4, c=5. Найдите длину ограды и количество удобрений нужных для участка.
Читайте также
вычислить площадь этого треугольника. Даны два действительных положительных числа х и у. Арифметические действия над числами пронумерованы (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление). Составить программу, которая по выведенному номеру выполняет то или иное действие над числами.
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.