Язык паскаля

program skorost;
var
a,b,c:real;
begin
writeln ('Введите расстояние в км');
readln (a);
writeln ('Введите скорость в часах');
readln (b);
c:=a/b;
writeln ('Скорость = ',c);
readln;
end.

0 0

4 года назад

Напишите программу, которая в последовательности натуральных чисел определяет минимальное положительное число, кратное 5. Прогр

Vasilij13 [78]

Var
   A,Min:integer;
   N:byte;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
    Begin
    Read(A);
    if (A>0)and(A mod 5 = 0)and(A < Min) then Min:=A;
    End;
Write(Min)
End.

0 0

2 года назад

Прочитать ещё 2 ответа

Ване на день рождения подарили n кубиков. Он с друзьями решил построить из них пирамиду. Ваня хочет построить пирамиду следующим

анна2204

Function tet2n(n As Integer) As Integer

Dim i As Integer

i = 8

Do While i * (i + 1) * (i + 2) / 6 > n

i = i - 1

Loop

tet2n = i