Ответ - 2
Собственно, сама программа, можете сделать проверку:
var f: text; st: string;
Begin
assign(f,'data.txt');
st:='Привет, информатики';
rewrite(f);
writeln(f,st);
close(f);
<span>end.</span>
For i:= 1 to n do
begin
mas [ i ] := random(100);
if mas [ i ] < 50 then begin
sum1:= sum1 + mas [ i ] ;
inc(count1);
end
else begin
sum2:= sum2 + mas [ i ] ;
inc(count2);
end;
if coun1 >0 then writeln('result1 = ',sum1/count1);
if coun2 >0 then writeln('result2 = ',sum2/count2);
for i:= 1 to n do
if mas [ i ] = x then writeln(A[', i,'] );
end;
var
Y: integer;
begin
Write('Y = ');
Readln(Y);
Write('Введенное целое число ',Y,' является отрицательным - ', Y < 0);
Readln
end.
1. клавиши управления курсором: стрелки, пейдж ап, пейдж даун, енд, хоме, в принципе на картинке видно
name = int(input())
name1 = (name % 10)
name10 = (((name % 100) - name1) / 10)
name100 = (name // 100)
if name1 == name10 == name100:
print('В числе все цифры одинаковые')
elif name1 == name10 > name100 or\
name1 == name10 < name100 or\
name1 == name100 > name10 or\
name1 == name100 < name10 or\
name10 == name100 > name1 or\
name10 == name100 < name1:
print('В числе две цифры одинаковые')
else:
print('ОК')