Между населенными пунктами A,B,C,D,E построены дороги ,протяженность которых приведена в таблице.Определите длину кратчайшего пути между пунктами A и E ,проходящего через пункт C.Передвигаться можно только по дороге,протяженность которых указана в таблице
var {ключевое слово после которого идет объявление переменных} a, b, c, S, P{перечисление названия переменных, которые будут использовться}: integer; {после двоеточия указ тип переменных} begin {начало выполнения программы} write('a = '); {вывод на экран текста и/или переменных (в данном случае выведится "а = ")} readln(a);{считывание переменной а} write('b = '); readln(b); write('c = '); readln(c); S := a + b + c;{присваивание значение переменной S равной сумме a, b, c} P := a * b * c;{присваивание значение переменной P равной произведению a, b, c} writeln('Сумма равна ', S);{вывод на экрантеста " Сумма равна " и значения переменной S} writeln('Произведение равно ', P);{вывод на экрантеста " Произведение равно " и значения переменной P} readln;{Ожидание нажатия клавиши enter} end.
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.
var {ключевое слово после которого идет объявление переменных}
a, b, c, S, P{перечисление названия переменных, которые будут использовться}: integer; {после двоеточия указ тип переменных}
begin {начало выполнения программы}
write('a = '); {вывод на экран текста и/или переменных (в данном случае выведится "а = ")}
readln(a);{считывание переменной а}
write('b = ');
readln(b);
write('c = ');
readln(c);
S := a + b + c;{присваивание значение переменной S равной сумме a, b, c}
P := a * b * c;{присваивание значение переменной P равной произведению a, b, c}
writeln('Сумма равна ', S);{вывод на экрантеста " Сумма равна " и значения переменной S}
writeln('Произведение равно ', P);{вывод на экрантеста " Произведение равно " и значения переменной P}
readln;{Ожидание нажатия клавиши enter}
end.