1.
2. Program Privet;
3. uses crt;
4. begin
5. Writeln ('Ассаляму алейкум, это моя
первая программа');
6. Writeln ('Ассаляму алейкум, это моя
первая программа');
7. Writeln ('Ассаляму алейкум, это моя
первая программа');
8. end.
9. Наберите на программе Паскаль
10.
11.
12.
13.
14.
Program primer;
var
b,a:real;
begin
Writeln('Введите сторону
прямоугольника а=');
15.
16.
17.
18.
19.
readln(a);
Writeln('Введите сторону
прямоугольника b=');
readln(b);
Writeln('Площадь прямоугольника
=', (a*b));
Writeln('Площадь периметр =',
(2*(a+b)));
end.
20.
21.
22.Напишите программу вычисления y
Решение
Var х, у: integer;
24.
25.Program zadacha2;
26.
27.Вegin
28. Write(‘Введите целое число ’);
29. Read(x);
30. y:=sqr(1-sqr(x)+5*sqr(sqr(x)));
31. Write(‘Значение у равно ’,y);
32. Read(y);
33.End.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
23.y = ( 1- x2 + 5x4 )2, где x - данное
по формуле:
целое число.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
1.
Program Privet;
uses crt;
begin
Writeln ('Ассаляму алейкум, это
моя первая программа');
Writeln ('Ассаляму алейкум, это
моя первая программа');
Writeln ('Ассаляму алейкум, это
моя первая программа');
56.
57.
Паскаль
58.
59.
60.
61.
62.
end.
2.Наберите на программе
Program primer;
var
b,a:real;
begin
Writeln('Введите сторону
63.
64.
65.
66.
67.
прямоугольника а=');
readln(a);
Writeln('Введите сторону
прямоугольника b=');
readln(b);
Writeln('Площадь прямоугольника
=', (a*b));
Writeln('Площадь периметр =',
(2*(a+b)));
end.
3.Напишите программу
68.
69.
70.
вычисления y по формуле:
71.y = ( 1- x2 + 5x4 )2, где x - данное
целое число.
Решение
Var х, у: integer;
72.
73.Program zadacha2;
74.
75.Вegin
76. Write(‘Введите целое число ’);
77. Read(x);
78. y:=sqr(1-sqr(x)+5*sqr(sqr(x)));
79. Write(‘Значение у равно ’,y);
80. Read(y);
81.End.
82.
83.
11 пар практикум.docx
