<span>program mas;
uses crt;
var a, b, c, k:integer;
begin
writeln('Введите три числа');
readln(a);
</span>readln(b);<span>
</span>readln(c);<span> </span><span>
for i:=1 to 3 do begin
if i>0 then k:=k+1;
end;
writeln('Положительных чисел',k);
readln;
end.
Вроде так.
Точно не знаю, давно на этом языке не кодил</span>
Мы ежедневно сталкиваемся с информацией, например читая газету, смотря фильм или телевизор, или просто слушая музыку. Книги - тоже информация. Даже благодаря нашему зрению и слуху мы получаем информацию об окружающем нас мире.
В созвездии Малая Медведица 7 звёзд. Самая яркая из них Полярная звезда.
Незнаю просто одно слово НЕЗНАЮ
Фамилия
Имя
Город проживания
Регистрационный номер авто
Номер дома!