Составить блок схему( - Помощь студентам

dark999 · 17.03.2011, 14:21

var a,b,c,d,e:integer;
begin
writeln('Введите числа:');
readln(a,b,c,d);
if a>0 then inc(e);
if b>0 then inc(e);
if c>0 then inc(e);
if d>0 then inc(e);
writeln('Количество положительных: ',e);
readln;
end.

dark999 · 17.03.2011, 14:29

Подскажите малясь, плохо шарю в блок-схемах(

Multiman · 17.03.2011, 18:46

http://fceditor.ru/

Mad_Cat · 17.03.2011, 18:50

Держите Схему

17.03.2011, 14:21	#1
dark999 Пользователь Регистрация: 17.03.2011 Сообщений: 42	Составить блок схему( var a,b,c,d,e:integer; begin writeln('Введите числа:'); readln(a,b,c,d); if a>0 then inc(e); if b>0 then inc(e); if c>0 then inc(e); if d>0 then inc(e); writeln('Количество положительных: ',e); readln; end.

17.03.2011, 14:29	#2
dark999 Пользователь Регистрация: 17.03.2011 Сообщений: 42	Подскажите малясь, плохо шарю в блок-схемах( Последний раз редактировалось dark999; 17.03.2011 в 14:44. Причина: ))

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Составить Блок Схему	IntelUser	Помощь студентам	7	05.03.2011 18:39
Составить блок-схему	Andi1	Помощь студентам	1	06.10.2010 00:06
Составить блок-схему	Any13	Помощь студентам	0	17.05.2010 17:04
составить блок-схему	JOHN1992	Помощь студентам	3	27.12.2009 14:41
Помогите пожалуйста решить две задачи по паскалю и составить и составить блок схему!	...Оленька...	Паскаль, Turbo Pascal, PascalABC.NET	2	20.01.2009 09:37

17.03.2011, 18:46	#3
Multiman Пользователь Регистрация: 13.10.2010 Сообщений: 91	http://fceditor.ru/