Створіть математичну модель для визначення кількості секунд в інтервалі часу, якщо відома його тривалість - id1515886420220513 от yorik555 13.05.2022 09:35

Question

Информатика: Створіть математичну модель для визначення кількості секунд в інтервалі часу, якщо відома його тривалість як сума годин і хвилин.

yorik555 · Accepted Answer

Program C2F;

Uses

Crt;

Var i: integer;

c,f: real;

Begin

ClrScr; {очистить экран}

Writeln('From Celsius to Fahrenheit:');

Write('Type temperature (in celsius): '); read(c);

f := 32 + 2*c * (1 - 1/10);

Writeln('Temperature in fahrenheit: ', f:3:3);

{ :3:3 - общее количество знаков и знаков после запятой }

Writeln(' Celsius to Fahrenheit from 0 to 100, step 5: ');

i := 0;

While i <= 100 Do

Begin

f := 32 + 2*i * (1 - 1/10);

Writeln(' C = ',i:3,' | F = ', f:3:3);

i := i + 5;

End;

Readkey; {чтоб не нажимать alt+f5 для просмотра результатов}

End.

Створіть математичну модель для визначення кількості секунд в інтервалі часу, якщо відома його тривалість як сума годин і хвилин.