Ввести 2 целых числа и выяснить сколько среди них отрицательных значений

@loker1332 · Регистрация: 09.07.2015

Author24 — интернет-сервис помощи студентам

Ввести 2 целых числа и выяснить сколько среди них отрицательных значений . результат вывести в виде текста : "одно" "два" или "ни одного".

@Puporev · 14.07.2015, 11:21

Pascal

var a,b:integer;
begin
writeln('Введите 2 целых числа');
readln(a,b);
if (a<0)and(b<0) then write('два')
else if (a<0)or(b<0) then write('одно')
else write('ни одного')
end.

@loker1332 0 / 0 / 0 Регистрация: 09.07.2015 Сообщений: 6
		1
	Ввести 2 целых числа и выяснить сколько среди них отрицательных значений 14.07.2015, 08:51. Показов 4819. Ответов 1 Метки нет (Все метки) Ввести 2 целых числа и выяснить сколько среди них отрицательных значений . результат вывести в виде текста : "одно" "два" или "ни одного". 0

	14.07.2015, 11:21

Опции темы

Ввести 2 целых числа и выяснить сколько среди них отрицательных значений

Решение