Технический форум - Показать сообщение отдельно - Блок-схема к Паскалю

маринаник · 07.02.2013, 23:00

помогите составить блок схему к паскалю!!!
Var
P:Extended;
i,x:Byte;
Begin
P:=1;
Write('x= ');
Readln(x);
For i:=2 to x do P:=P*i;
Writeln(P:0:0);
Readln
End.

07.02.2013, 23:00	#1 (permalink)
маринаник Новичок Регистрация: 05.02.2013 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Блок-схема к Паскалю помогите составить блок схему к паскалю!!! Var P:Extended; i,x:Byte; Begin P:=1; Write('x= '); Readln(x); For i:=2 to x do P:=P*i; Writeln(P:0:0); Readln End.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070