Что такое время? на это может быть много ответов, однако это очень загадочная штуку. с точки математики это единицы измерения. Время может и бежать и отставать, и лететь. Времени нельзя коснуться, как и воздуха. Это означает, что оно важно нам так же как и сам воздух. Иногда время кажется нам слишком быстрым, иногда наоборот.
Программу пришлось немного править, что б заработала
var
k, s: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 7;
Dat[2] := 9;
Dat[3] := 10;
Dat[4] := 5;
Dat[5] := 6;
Dat[6] := 7;
Dat[7] := 9;
Dat[8] := 8;
Dat[9] := 6;
Dat[10] := 9;
s := 0;
for k := 1 to 10 do
s := s + Dat[k];
writeln(s);
end.
Вывод
76
Вам ответы нужны или что?
1.
var
a : integer;
begin
read (a);
writeln (sqrt (a) * 4);
end.
2.
var
x : integer;
begin
read (x);
if (x mod 2 = 0) then writeln ('Четное')
else writeln ('Нечетное');
if (x mod 3 = 0) then writeln ('Делится на 3')
else writeln ('Не делится на 3');
end.