Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 14.01.2013
Сообщений: 24
1

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

16.01.2013, 20:22. Просмотров 385. Ответов 1
Метки нет (Все метки)

пожалуйста сделайте блок схему для следующего кода.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2013, 20:22
Ответы с готовыми решениями:

Составить блок схему к готовому коду
program tmp; uses crt; const count=40; type arr=array of integer; var m,n:integer; V,F:arr; ...

Составить блок-схему к готовому коду
var x,s,a:real; n,i:integer; begin write('N='); readln(n); write('x='); readln(x); s:=0;...

Составить блок схему к готовому коду
кароч, есть прога на паскале, и нужно блок схему нарисать составить, ну вот ниразу в жизни на case...

Составить блок схему к готовому коду
Uses crt; Var a : integer; i , N : byte; K : real; Begin clrscr; ...

1
Фрилансер
3404 / 2801 / 3000
Регистрация: 08.02.2012
Сообщений: 7,745
Записей в блоге: 1
17.01.2013, 08:36 2
...
0
Миниатюры
Составить блок схему к готовому коду  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.01.2013, 08:36

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составить блок схему к готовому коду
program m1_z2; uses crt; var s:string; i:integer; BEGIN writeln ('vvedit ryadok:');...

Составить блок схему к готовому коду
Помогите пожалуйста написать блок схему для этой задачи var ar: Array Of ShortInt; i, j, k, n,...

Составить блок схему к готовому коду
помогите сделать блок схему.. Код: Uses CRT; Const m=6; n=5; var

Составить блок схему к готовому коду
uses crt; function Fact(n:byte):longint; begin if n<2 then Fact:=1 else Fact:=Fact(n-1)*n;...

Составить блок-схему по готовому коду
Всем хай. Помогите плиз написать блок схему вот к этой программе uses SysUtils; type...

Составить блок схему к готовому коду
program Zad3; var x,x1,x2,dx,MaxX, a,a1,a2,da,MaxA,rez,Max,Max10:real; function...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.