inputFileName = 'input.txt' # имя входящего файла
outputFileName = 'output.txt' # имя файла вывода
f = open(inputFileName, 'r')
A = int(f.readline())
B = int(f.readline())
f.close()
if A > B:
symbol = ">"
if A < B:
symbol = "<"
else:
symbol = "="
f = open(outputFileName, 'w')
f.write(symbol)
f.close()
Просто ничего
нельзя с этим ничего поделать
Хотя переустонови ее (программу)
Для случайных чисел:
var
a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
a[i] := random(100);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
Для ручного заполнения:
var
a: array[1..5] of integer;
i: integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
Ответ:
var
a:integer;
b,c:string;
begin
writeln('--------------------------');
writeln('---Программа знакомства---');
writeln('--------------------------');
writeln('Я персональный ЭВМ,');
writeln('А как зовут тебя?');
readln(b);
writeln('Сколько тебе лет?');
readln(a);
writeln('В каком классе ты учишься?');
readln(c);// цифра и буква
writeln('Рада познакомиться с тобой, '+b);
writeln('Молодец, в '+a+' лет написал такую программу!');
writeln('В твоём '+c+' классе все такие?');
end.