Пластиковая карта:
1) Компактна и удобна;
2) Не страшно потерять;
3) Она помочь способна, когда налички не хватает, чтобы покупать)
4) Она - шаг в будущее экономических отношений;
5) Также - кладезь множества решений)
Объяснение:
^ знака нет, но выполняет свои действия, у себя в таблице ставьте его!
Var a,b,c,d:integer;beginc:=0; //счетчик положительных чиселd:=0; //счетчик отрицательных чиселa:=0; // счетчик цикла, чтобы после ввода 5 чисел выйти из негоwriteln('введите 5 чисел');while a<>5 do beginreadln(b);if b>=0 then c:=c+1else d:=d+1;a:=a+1;end;writeln('положительных чисел ',c);writeln('отрицательных чисел ', d);end.
(x>=10) and (x<100)
Третий вариант