128 Кб/сек * 30 сек = 3840 Кбайт : 1024= 3,75 Мбайт
Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>
Проявить ее ................
дано: i=4
найти: N - ?
решение:
формула: N=2i => N=2×4, N=16
ответ: 16
Var f:text ;
c:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
writeln ('Введите ',i,' число');
read(c[i]);
end;
assign (f,'res.txt');
rewrite(f);
for i:=1 to 10 do
write (f,' ',c[i]);
close (f);
end.
Писал на Pascal ABC. Для того, чтобы работала, тебе нужно создать папку, и в этой папке сохранить данную программу. После запуска, тебе нужно будет ввести 10 чисел. Результат сохранится в той папке, в которой будет сохранена программа !