Pascal.определить h - полное количество часов и m - полное количество минут от начала суток до того момента (в первой половине дня), когда часовая стрелка повернулась на f градусов (0
begin writeln('Введите начальное значение, конечное значение и шаг '); readln(a, b, h); x := a; while x <= b do begin writeln(x:5:2,' ',2 * cos(x) - 1:10:7); x := x + h end end.
var a: array of string; b: List<integer> := new List<integer>(); f, g: string;
begin readln(f, g); System.IO.File.WriteAllText(f, ''); System.IO.File.WriteAllText(g, ''); for k: byte := 1 to 10 do System.IO.File.AppendAllText(f, IntToStr(Random(25)) + System.Environment.NewLine); a := System.IO.File.ReadAllLines(f); foreach k: string in a do b.Add(StrToInt(k)); var i: integer; while (i < b.Count - 1) do begin while (b.IndexOf(b[i]) <> b.LastIndexOf(b[i])) do b.RemoveAt(b.LastIndexOf(b[i])); inc(i); end; foreach k: integer in b do System.IO.File.AppendAllText(g, IntToStr(k) + System.Environment.NewLine); end.
var h,m,f:integer;
BEGIN
readln(f);
h:=f div 30;
m:=(f mod 30)*2;
write(h,' ч ',m,' мин');
end.