Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 12.05.2019
Сообщений: 7
1

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

16.05.2019, 20:24. Просмотров 202. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program m_1;
var
x,y,p,i,k:integer;
begin
writeln('введите 2 числа: x,y(x>y)');
read(x,y);
p:=1; k:=0;
for i:=x+1 to y-1 do begin
k:=k+1;
p:=p*i;
end;
if k<>0 then begin
writeln('количество целых чисел между ними=',k);
writeln('их произведение=',p);
end else writeln('между ними нет натуральных чисел');
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2019, 20:24
Ответы с готовыми решениями:

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

Составить блок схему к готовому коду
uses crt; const MaxRow = 14; MaxCol =20; F: array of real=(130.8, ...

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

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

1
1315 / 712 / 330
Регистрация: 07.04.2017
Сообщений: 2,948
16.05.2019, 21:45 2
Для этого есть специальные программы, и найти их легко, загуглите.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2019, 21:45

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

Составить блок схему к готовому коду
uses crt,deftypes,sort3; procedure readfromfile(var db:tdbf;var n:integer;fn:string); var...

Составить блок схему к готовому коду
const n = 8; var a : array of integer; i, j, t : integer; begin writeln('исходная...

Составить блок схему к готовому коду
uses crt,deftypes,sort3; procedure readfromfile(var db:tdbf;var n:integer;fn:string); var...

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


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

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

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