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 чисел. Результат сохранится в той папке, в которой будет сохранена программа !
Ответ:
1000 Кбайт
Объяснение:
512000*16/8/1025=1000 Кбайт
def f():
result = []
for i in range(100, 10000):
str_num = str(i)
num = sum([int(x) ** len(str_num) for x in str_num])
if num == i:
result.append(i)
return result
Вот TURBO PASCAL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
<span>uses crt;
var i,sum,tmax,tmin:integer;sred:real;
t:array [1..30] of integer;
begin
clrscr;
sum:=0;
writeln('vvedite T -> ');
for i:=1 to 6 do begin
write(i,' zamer t = ');
read(t[i]);
end;
tmax:=t[1];
tmin:=t[1];
for i:=2 to 6 do begin
if t[i]>tmax then
tmax:=t[i];
if t[i]<tmin then
tmin:=t[i];
end;
for i:=1 to 6 do
sum:=sum+t[i];
sred:=sum/6;
writeln('Max T = ',tmax);
writeln('Min T = ',tmin);
writeln('srednyaya T = ',sred:3:3);
readkey;
<span>end</span></span>
F G F+G
0 0 0
0 0 0 Cемь одинаковых строк: в шести все нули, в одной - 1.
0 0 0
0 0 0
0 0 0
0 0 0
1 1 1
----------------
1 0 1 во всех остальных при различных значениях F и G
0 1 1 F+G =1 (F+G=0 при F=G=0)
...............
ответ: 6