Program abc;

var
n, i: integer;
s: real;

begin
write('Введите количество чисел: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('Сумма обратных чисел = ', s);
end.

0 0

3 года назад

Товарный поезд из тепловоза и 15 вагонов приближается к станции железной дороги. Его нагоняет по тому же пути пассажирский поезд

Tigr55

1. Товарняк заезжает жопой в тупик, оставляет там 4 вагона и проезжает вперед по главной ветке.
2. Пассажирский проезжает тупик, затем сдает назад в тупик и забирает эти 4 вагона, затем проезжает вперед и сдает назад на главную ветку, где отцепляет 4 товарных вагона.
3. Пункты 1 и 2 повторяются еще два раза и позади пассажирского поезда окажется 12 вагонов товарняка.
4. Товарняк с оставшимися 3 вагонами сдает назад в тупик и пассажирский спокойно проезжает по своим делам. Миссия выполнена - пассажирский пропущен.
5. Товарняк проезжает вперед, затем сдает назад по главной ветке и забирает свои 12 вагонов.

0 0

4 года назад

Помогите решить пожалуйста

xakeman

1)

Var
x,y:real;
Begin
Write('x = ');
ReadLn(x);
if x > -1 then y:=2*x-3
else y:=5*x*x;
WriteLn('y = ',y);
End.

Проверка:

x = 5
y = 7

x = -3.4
y = 57.8

2)

Var
A:integer;
Begin
Write('Введите целове число: ');ReadLn(A);
if A mod 2 <> 0 then Write('Число - нечётное')
else Write('Число является ЧЁТНЫМ')
End.

0 0

3 года назад

Ответить на вопросы: а)сколько бит содержит 8 байт? б)что больше 1кб или 2000б? в)равны ли 2000б и 3кб?

Вера Викторовна Б...

A)64 б)2000б=2кб в)х3 думаю что нет....

0 0

3 года назад