Запишите, , на языке паскаля. условие : подсчитать кол-во положительных чисел среди чисел a, b, c .

program abc;

var a, b, c: real;

var i: integer;

begin

writeln ('введите число а');

readln (a);

writeln ('введите число b');

readln (b)

тоже самое и для с

i: =0

if a> 0 then i: =i+1

тоже самое только для б и с

writeln ('число положительных чисел = , 'i);

end. 

 

А... поняла...Поставим точка в нижнем углу клетки и проведём от неё линию в одну клетку в право
От этой линии проведём линию в две клетки вниз. Далее линию на одну клетку вправо, от неё линию на одну клетку вверх. Потом на одну клетку линию снова вправо и на одну клетку вниз. Далее линию на одну клетку вправо и на одну клетку вниз. Потом проводим палочку на две клетки влево и на оду клетку вниз. Далее идут палочки по одной клетке вправо, вниз и влево, потом снова вниз и влево. Потом нарисуем палочку на две клетки вверх и на одну клетку влево, вниз, влево, вверх, влево, вверх, две клетки вправо. Одна клетка вверх, одна вправо, вверх и мы снова приходим к точке. Рисунок закончен

Не за что слово ободок да я очень уверено пусть работает