Сколько потребуется времени, чтобы поезд длиной 1км (скорость 60 км/ч), прошёл тоннель длиной в 1км.

Знания

Информатика

2 ответа:

CurtisBT [7]4 года назад

0 0

Потребуется 20 минут

IraR4 года назад

0 0

Потребуется 20 минут

Читайте также

Ввести с клавиатуры массив из 5 элементов, найти в нем максимальный и минимальный элементы и их номера.

Unnemo

Program zadacha;
var a: array[1..5] of integer;
max,min,i,nmax,nmin: integer;
begin
for i:=1 to 5 do
begin
write ('Ââåäèòå a[',i,']=');
readln (a[i]);
end;
max:=a[1];
min:=a[1];
nmax:=1;
nmin:=1;
for i:=1 to 5 do
begin
if a[i]>max then
begin
max:=a[i];
nmax:=i;
end;
if a[i]<min then
begin
min:=a[i];
nmin:=i;
end;
end;
for i:=1 to 5 do
begin
write (a[i],' ');
end;
writeln;
writeln ('Максимальный элемент равен ',max,', его номер ',nmax);
writeln ('Минимальный элемент равен ',min,', его номер ', nmin);
end.

0 0

4 года назад

Вычислить(1+sin0.1)(1+sin0.2) ... (1+sin10) для Free Pascal. Помогите!!!!

timan70 [3.7K]

Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.

0 0

4 года назад

Напишите следующую программу. Введите с клавиатуры целое число N. Выведите на экран числа от 1 до N так, чтобы каждое число выво

Mishulek

Вообщем, сделал задачу, но метод пузырька уже не выйдет :) т.е. сортировка по возрастанию :( упрощал как мог.

Program asd;
USES crt;
Var n,m,i,j:integer;
BEGIN
Clrscr;
Writeln('Введите число n: ');
Readln(n);
n:=n+1;
For i:=1 to n do
begin n:=n-1;
For j:=1 to n do
begin
Write(n:3);
end;
end;
<span>END.</span>

0 0

3 года назад

Почему приходится переходить от одной формы представления информации в другой? приведите пример

Янка111

Потому что например некоторые люди не могут воспринимать звуки, но могут читать, и наоборот

0 0

4 года назад

Найти максимальное число страниц книги, если файл объемом 640 Кбайт содержит 32 строки по 64 символа ASCII на каждой странице

irines

640 Кбайт = 2 х Кбайт
Х=640/2
Х=320
Ответ 320 страниц

0 0

4 года назад