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

@Molchan · Регистрация: 14.01.2013

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

пожалуйста сделайте блок схему для следующего кода.

Pascal

program z2;
uses crt;
var n,a,k,s,i,b: integer;
 
begin
 clrscr;
 
 write('Введите число');
 readln(n);
 a:=n;
 b:=0;
 
 repeat a:=(a div 10); b:=b+1; until a=0;
 
 a:=n;
 write(b);
 s:=0;
 
 for i:=1 to b do begin
  s:=s+(a mod 10); a:=a div 10; end;
 
 writeln('S=',s);
 
 if (s mod 5 = 0) then write('Да') else write('Нет');
end.

@CodeR · 17.01.2013, 08:36

...

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

Опции темы