сервис вопросов и ответовДаны целые числа a и b.Написать программу, которая подсчитывает, сколько среди них меньших нуля
5-9 класс|
|
Анастасия22032001
26 февр. 2015 г., 11:07:27 (9 лет назад)
Lizamiza1
26 февр. 2015 г., 13:46:58 (9 лет назад)
var
a,b:integer;
k:byte;
begin
write ('A = ');readln(a);
write ('B = ');readln(b);
if (a<0) and (b<0) then k:=2 else
if ((a<0) and (b>0)) or ((a>0) and (b<0)) then k:=1 else k:=0;
writeln (k);
readln;
end.
миха56фил
26 февр. 2015 г., 15:26:20 (9 лет назад)
uses crt;
var a,b,c:integer;
begin
a:=-1; b:=-2; c:=0;
if (a < 0 ) then inc(c);
if (b < 0 ) then inc(c);
writeln('sredi nih ',c,' menshe 0');
readln;
end.
так? если что в лс
Ответить
Другие вопросы из категории
1)напишите программу которая спрашивала бы название продукта и его цену. И затем на экран выводила фразу "Ваши расходы на покупки равны руб." 2) написать
программу, которая запрашивала три числа, подсчитывала их средне и сумму и на экран выводила фразу "Их среднее равно..." и "Их сумма равна..."
Читайте также
1.Дано целое число N.Написать программу ,увеличивающую число в 3 раза ,если оно больше нуля
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ
Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
дано натуральное число N, Написать ему выводящую на экран последовательность натуральность натуральных чисел от 1 до N, задание 2 дано натуральное число
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
Пожалуйста помогите решить желательно все или хотя бы одну (P.S. программа для программы Turbo Pascal) 1.Написать программу, которая предлагает
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.
Вы находитесь на странице вопроса "Даны целые числа a и b.Написать программу, которая подсчитывает, сколько среди них меньших нуля", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.