1. a:=10; b:=20; c:=30; 2. При write(a) - выведется на экран просто значение а; При write('a') - выведется просто буква "а"; При write('a=', a) - выведется на экран, например: a=10 3. Чтобы вывести на экран число с фиксированной запятой нужно написать write(a:0:3). a - должна быть вещественного типа. 3 - означает три знака после запятой, поэтому если у вас число 1.2758234, то будет выведено на экран 1.275
4. a = 1; b = 11;
5.
program pl; var a, b : integer; s, p : real; begin writeln("Введите первую сторону прямоугольника:"); readln(a); writeln("Введите вторую сторону прямоугольника:"); readln(b); p = 2*(a+b); s = a*b; writeln("Площадь прямоугольника равна:", s); writeln("Периметр прямоугольника равен:", p); end.
Циклы на Delphi
2.
If vklad=200000 then proc:=13,5
else if vklad=350000 then proc:=14,2;
3.
While n>5 do
begin
kg:=kg*4;
n:=n-5;
end;
4.
Sum m k
0 10 0
1 8 1
3 6 2
6 4 3
10 2 4
15 0 5