Помогите составить блок схему

@soboleva_lelya · Регистрация: 12.03.2013

Author24 — интернет-сервис помощи студентам

помогите составить блок схему плиз!
Код Pascal

Pascal

program lab_pascal;
uses Crt;
var num,p:Integer;
begin
ClrScr;
Write('Введите четырехзначное число:');
Readln(num);
while num<>0 do
begin
p:=p*10+num mod 10;
num:=num div 10;
end;
Writeln('Полученное число: ',p);
Writeln('Корень квадратный: ',sqrt(p):0:4);
Readln;
end.

@CodeR · 13.03.2013, 12:16

....

Новичок · 14.03.2013, 00:31

soboleva_lelya,да круто,прогу я написал,а блок-схему CodeR тебе сделал.

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,587 Записей в блоге: 1
	13.03.2013, 12:16	2
	.... Миниатюры 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	14.03.2013, 00:31	3
	soboleva_lelya,да круто,прогу я написал,а блок-схему CodeR тебе сделал. 0