Регистрация
vovazvyagin
24.12.2020 02:22
Информатика
Есть ответ 👍

2.для чего используются подпрограммы?

180
209
Посмотреть ответы 2

Ответы на вопрос:

mamka18
mamka18
4,4(36 оценок)
Для работы с компьютером, и прописи кодов в консоли windows и других движков.
Danilfaha
Danilfaha
4,6(53 оценок)

первое

program proga;

uses crt;

var

a,b,c,x,y,z: integer;

begin

clrscr;  

writeln('введите значения точек');

  readln(a);   readln(b); readln(c);  

x=b-c;

y=c-b;

z=x+y;

readln;

end.

второе

program proga;

uses crt;

var

a,b,c,x,y,z: integer;

begin

clrscr;  

  writeln('введите 4 числа');

  readln(a);   readln(b); readln(c);     readln(x); readln(y);  

z=a*b*c*y*x;

if z> 300 then

writeln('произведение этих чисел больше 300')

else

  writeln('произведение этих чисел меньше 300')  ;

readln;

end.

и соответственно третье

program proga;

uses crt;

var

a: integer;

begin

clrscr;  

  writeln('введите число');

  readln(a);

if a> 0 then

a=a+1;

writeln(a) 

else

if a< 0 then

a=a-2;

writeln(a) 

  else

writeln('вы ввели 0');

readln;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Популярно: Информатика