Назначение помогать людям за зверями . Команды :напоминать когда кормит , играть(может делать все сам) Это задание на воображение подумай)
Если взять массив от 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) на один уровень выше: "С:/Физика/Задачи"
2) на один уровень выше: "С:/Физика"
3) на уровень ниже: "С:/Физика/Экзамен"
Ответ: С:/Физика/Экзамен
1)
const n = 5;
var
i, a, count: integer;
begin
for i := 1 to n do begin
readln(a);
if(a mod 2 = 0) then inc(count);
end;
writeln('Кол-во четных чисел: ', count);
end.
2)
var
i, n, count: integer;
begin
readln(n);
for i := 1 to n do begin
write(exp(ln(2)*i), ' ');
if(exp(ln(2)*i) <= 200) then inc(count);
end;
writeln('Кол-во эл. не превышающих 200: ', count);
end.
а) 1111 , 11111 , 111111 , 1111111 ...
б) 1000 , 10000 , 100000 , 1000000 ...
в) 101 , 111 , 101 . 111 , 101 ...
Вроде так ;Р