Предмет: Информатика,
автор: shestakov484
даны 4 целых числа. составить алгоритм, который подсчитывает, сколько среди них меньших нуля
StrahovDev:
На каком языке?
Ответы
Автор ответа:
0
Ответ:
var
a,b:integer;
k:byte;
begin
write ('A = ');readln(a);
if (a<0) then k:=2 else
if ((a<0) and or ((a>0) hen k:=1 else k:=0;
writeln (k);
readln;
end.
Объяснение:
Похожие вопросы
Предмет: Русский язык,
автор: MrBlanderChat
Предмет: Русский язык,
автор: zoya8
Предмет: Русский язык,
автор: pirverdieva2015
Предмет: Алгебра,
автор: Аноним
Предмет: Другие предметы,
автор: samoilenk0