1)var a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2=0 then writeln('Число чётное')
else writeln('Число нечётное');
end.
2)var a,b:integer;
begin
writeln('Введите число');
readln(a);
b:= a div 100;
if b>9 then writeln('Ошибка') else begin
writeln('Первая цифра это');
writeln (b);
if b mod 3=0 then writeln('Первая цифра числа делится на 3')
else writeln('Первая цифра числа не делится на 3');end;
end.
var
n, k, i, j: integer;
s: array[1..15] of integer;
begin
assign(input, 'task2.in'); reset(input); readln(n, k); close(input);
assign(output, 'task2.out'); rewrite(output);
for i := 1 to n do
if i <= k then s[i] := 1 else s[i] := 0;
for i := 2 to n do
begin
j := i - 1;
while (j > 0) and (j >= i - k) do
begin
s[i] := s[i] + s[j];
j := j - 1
end
end;
write(s[n]);
close(output)
end.
Если взять массив от 1 до 20 то программа примерно выглядит так:
Program primer;
Var
A: array [1..20] of real;
i:integer;
Begin
For i:=1 to 20 do
Begin
a[i]:=i/2;
Write(a[i],'|');
End;
End.
1) 15,6 Мб переводим в гигабайты:
15,6 ÷ 1024 = ~0,015 Гб
2) Находим заполненное:
1,24 + 1,27 + 0,015 = 2,525 Гб
3) Пропорция, чтобы найти количество заполненного в процентах:
16 / 100 = 2,525 / х
Оисюда получаем х = 15,8 %
4) Свободное:
100 - 15,8 = 84,2 %