Если, например, Х = 5 сек, то за 5 сек Флэш выпустит 2 молнии, а за 10 сек - 3. То есть количество молний A = int(Y : X) + 1, где Y = N*60 + M - количество отведенного времени в секундах. Вся суть программы: X = Input (input.txt, X); // Принимаем секунды из файла, пишем в переменную X N = Input (input.txt, N); // Принимаем минуты из файла, пишем в переменную N M = Input (input.txt, M); // Принимаем секунды из файла, пишем в переменную M Y = N*60 + M; // Вычисляем отведенное время в секундах A = int(Y : X) + 1; // Вычисляем количество молний Output (A, output.txt); // Выводим его в файл.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) begin var n:=ReadInteger('Размер массива: '); var a:=ArrRandom(n); a.Println; var p:=1; for var i:=n-4 to n-1 do begin p:=p*a[i]; end; println(p); end.
const k = 100; var a:array [1..k] of integer; i,p,n:integer; begin p:=1; readln(n); for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:4); if i>n-4 then p:=p*a[i]; end; writeln; writeln(p); end.
То есть количество молний A = int(Y : X) + 1, где
Y = N*60 + M - количество отведенного времени в секундах.
Вся суть программы:
X = Input (input.txt, X); // Принимаем секунды из файла, пишем в переменную X
N = Input (input.txt, N); // Принимаем минуты из файла, пишем в переменную N
M = Input (input.txt, M); // Принимаем секунды из файла, пишем в переменную M
Y = N*60 + M; // Вычисляем отведенное время в секундах
A = int(Y : X) + 1; // Вычисляем количество молний
Output (A, output.txt); // Выводим его в файл.