Program prim Uses crt Var A P integer

  • Slides: 18
Download presentation

Составить программу для нахождения периметра квадрата? Program prim; Uses crt; Var A, P: integer;

Составить программу для нахождения периметра квадрата? Program prim; Uses crt; Var A, P: integer; Begin Clrscr; Write(‘A=’); Readln(A); P: =4*A; Write(‘P=’, P); Readkey; End.

Составить программу для нахождения периметра прямоугольника ? Program z 1; Uses crt; Var A,

Составить программу для нахождения периметра прямоугольника ? Program z 1; Uses crt; Var A, B, P: integer; Begin Clrscr; Write(‘A=’); Readln(A); Write(‘B=’); Readln(B); P: =4*(A+B); Write(‘P=’, P); Readkey; End.

Составить программу для нахождения периметра треугольника ? Program z 2; Uses crt; Var A,

Составить программу для нахождения периметра треугольника ? Program z 2; Uses crt; Var A, B, C, P: integer; Begin Clrscr; Write(‘A=’); Readln(A); Write(‘B=’); Readln(B); Write(‘C=’); Readln(C); P: =A+B+C; Write(‘P=’, P); Readkey; End.

Составить программу для нахождения площади квадрата? Program z 3; Uses crt; Var A, S:

Составить программу для нахождения площади квадрата? Program z 3; Uses crt; Var A, S: integer; Begin Clrscr; Write(‘A=’); Readln(A); S: =sqr(A); Write(‘S=’, S); Readkey; End.

Составить программу для нахождения площади прямоугольника? Program z 4; Uses crt; Var A, B,

Составить программу для нахождения площади прямоугольника? Program z 4; Uses crt; Var A, B, S: integer; Begin Clrscr; Write(‘A=’); Readln(A); Write(‘B=’); Readln(B); S: =A*B; Write(‘S=’, S); Readkey; End.

Составить программу для нахождения объема куба? Program z 5; Uses crt; Var A, V:

Составить программу для нахождения объема куба? Program z 5; Uses crt; Var A, V: integer; Begin Clrscr; Write(‘A=’); Readln(A); V: =A*A*A; Write(‘V=’, V); Readkey; End.

Составить программу для нахождения объема параллелепипеда? Program z 6; Uses crt; Var A, B,

Составить программу для нахождения объема параллелепипеда? Program z 6; Uses crt; Var A, B, C, V: integer; Begin Clrscr; Write(‘A=’); Readln(A); Write(‘B=’); Readln(B); Write(‘C=’); Readln(C); V: =A*B*C; Write(‘V=’, V); Readkey; End.

Program prim Uses crt Var A P integerProgram prim Uses crt Var A P integer
Program 1 Uses crt Var a integer BeginProgram 1 Uses crt Var a integer Begin
program Andrey uses crt var i integer beginprogram Andrey uses crt var i integer begin
Program Kolo Krug Uses Crt Var R integerProgram Kolo Krug Uses Crt Var R integer
Program 1 Uses crt Var a integer BeginProgram 1 Uses crt Var a integer Begin
Procedure menaxy integer var yx integer Var xProcedure menaxy integer var yx integer Var x
1 uses crt var a b integer procedure1 uses crt var a b integer procedure
Uses CRT Graph Var Device Mode integer BeginUses CRT Graph Var Device Mode integer Begin
var everything var curwall var wallwidth 5 varvar everything var curwall var wallwidth 5 var
program prim 1 var z integer begin writelnprogram prim 1 var z integer begin writeln
Program Pokupka 1 Uses Crt Var b kProgram Pokupka 1 Uses Crt Var b k
PASCAL program Tabl2 code uses CRT var kodPASCAL program Tabl2 code uses CRT var kod
Program NOD 1 Uses crt Var a bProgram NOD 1 Uses crt Var a b
program pr 1 uses crt var st 1program pr 1 uses crt var st 1
Program Pokupka 1 Uses Crt Var b kProgram Pokupka 1 Uses Crt Var b k
Program NOD 1 Uses crt Var a bProgram NOD 1 Uses crt Var a b
PROGRAM FORI Uses wincrt VAR COUNT INTEGER BEGINPROGRAM FORI Uses wincrt VAR COUNT INTEGER BEGIN