Программа работает
var
<span>n,</span><span>i,j,</span><span>s :integer;
</span>begin
Write('введите число');
Readln(n);
for i:=1 to n
do begin
s:=0;
for j:=1 to i div 2 do begin
if i mod j=0 then inc(s);end;
if s=1 then Writeln(i);
end;end.
<span>
П.С. программа находит все простые числа до заданного тобой числа</span>
625 Кбайт = 625 * 1000 * 8
ответ : (625 * 1000 * 8) / 128000
Требуется выполнить сортировку временных моментов, заданных в часах, минутах и секундах.
Входные данные
Во входном файле INPUT.TXT в первой строке записано число N (1<=N<=100), а в последующих N строках N моментов времени. Каждый момент времени задается 3 целыми числами - часы (от 0 до 23), минуты (от 0 до 59) и секунды (от 0 до 59).
Выходные данные
В выходной файл OUTPUT.TXT выведите моменты времени, упорядоченные в порядке неубывания без ведущих нулей.
Пример:
INPUT.TXT
4
10 20 30
7 30 00
23 59 59
<span>13 30 30 </span>
OUTPUT.TXT
7 30 0
10 20 30
13 30 30
<span>23 59 59</span>
Var x,k:integer;begink:=0;repeatwriteln('введите x');readln(x);if (x>1) then k:=k+1until x=0;write('k=',k);end.
<em>// PascalABC.NET 3.2, сборка 1344 от 22.11.2016</em>
<em>// Внимание! В более ранних версиях программа работать не будет!</em>
begin
var d:=MatrRandom(4,4,-20,20);
Writeln('Исходный массив'); d.Println(4);
var s:=d[0,0];
for var i:=1 to 3 do begin d[i,i]:=d[i,0]; s+=d[i,i] end;
Writeln('Полученный массив'); d.Println(4);
Writeln('Сумма на главной диагонали ',s)
end.
<u>Пример</u>
Исходный массив
14 8 -12 12
15 -9 -16 -6
18 -7 7 5
-7 -12 -10 -14
Полученный массив
14 8 -12 12
15 15 -16 -6
18 -7 18 5
-7 -12 -10 -7
Сумма на главной диагонали 40