График Скорость Время
а 200км/ч 30 минут
b 100км/ч 1 час
c 25 км/ч 4 часа
d 16,66 км/ч 6 часов
е 5км/ч 6 часов
program raf105;
const
n = 35;
var
a: array[1..30] of integer;
b: array[1..40] of integer;
c: array[1..n] of integer;
i : integer;
begin
writeln('Заполните массив A');
for i:=1 to 30 do
readln(a[i]);
writeln('Заполните массив B');
for i:=1 to 40 do
readln(b[i]);
writeln('Заполните массив C');
for i:=1 to n do
readln(c[i]);
for i:=1 to 40 do
begin
if (a[i] < 0) or (b[i] < 0) then
begin
writeln('Нет');
break
end;
if c[i] < 0 then
begin
writeln('Да');
break
end;
end;
end.
<h3>PascalABC</h3>
//PascalABC.NET
begin
seqgen(readinteger(), x -> (2 * x) / (2 * x + 1), 1).Product.Print;
end.
1) Без понятия, звучит как плохая постановка вопроса. Возможно это проходили именно вы и тебе будет ответить намного проще, нужен контекст.
Я так понимаю это "энергонезависимость"
2) Монитор
3) Жесткий диск
Один из вариантов, все, что разобрал.