Информатика паскаль код

Question

Информатика паскаль код

Рыжик Прохожий Знаток (265), на голосовании 2 недели назад

using System;
class HelloWorld {
static void Main() {
Console.WriteLine("Введите количество остановок: ");
int n = Convert.ToInt32(Console.ReadLine());
int t = n*5-5;
Console.WriteLine(t);
Console.ReadKey();
}
Нужно сделать чтобы работало в паскале

Answer 1

XChara Мастер (1190) 1 месяц назад

Ооо посхалко

Рыжик ПрохожийЗнаток (265) 1 месяц назад

даун

Answer 2

На

 program HelloWorld; 
 
var 
  n, t: Integer; 
 
function CalculateTime(stops: Integer): Integer; 
begin 
  Result := (stops - 1) * 5; 
end; 
 
procedure GetValidInput(var stops: Integer); 
begin 
  repeat 
    Write('Введите количество остановок (1 или больше): '); 
    ReadLn(stops); 
     
    if stops < 1 then 
      WriteLn('Ошибка! Введите количество остановок (1 или больше).'); 
       
  until stops >= 1; 
end; 
 
begin 
  GetValidInput(n); 
  t := CalculateTime(n); 
   
  WriteLn('Время в пути: ', t, ' минут'); 
  ReadLn; 
end.