Помогите, пожалуйста, выполнить такую задачу в паскале: "найти все трехзначные числа, средняя цифра которых равна сумме первой и третьей цифр".

BikeR, var i,x1,x2,x3:integer;
begin for i:=100 to 999 do begin
x1:=i div 100;
x2:=i div 10 mod 10;
x3:=i mod 10;
if x2=x1+x3 then writeln(i); end; end.

EwGeN DoGG, большое спасибо! Поможешь еще сделать задачи №11 и №18 на этой странице: fmi.asf.ru/Library/Book/LabInf1/Lab3.html Задачи почти в самом низу.

Может кто другой с этим поможет - seclub.org/forum/goto/11034540/ ?

BikeR, Привет. Вот тебе те две задачи upload.com.ua/get/901628942/

как на создаваемый файл с возможностью потом до записывать поставить атрибут скрытый и системный? По подробнее пожалуйста

Henter, спасибо большое! Выручил, завтра лабораторка как раз

ни кто не знает что ли как присваивать атрибуты создаваемому файлу?!

решите пожалуйста задачу на паскале с циклом While обязательно только. Вводится последовательность из N натуральных чисел. Найти наибольшее число.

Devil-w61O, var n, i, m, k: integer;
begin
readln(n); k:=1;
while k<=n do begin
readln(i);
if (i>m) or (k=1) then m:=i;
k:=k+1;
end; write(m) end.

EwGeN DoGG, спасибо:)

Еще нужен человек для написания блок схем.по алгоритмам.плачу 10 р.за схему.только сегодня свяжитесь. 52442244