Нужна помощь в решении задачек, тема "Циклы с переменным количеством шагов"

[DJ Kost]

Народ помогите пожалуйста решить эти задачки (нужна не консольная программа)


1. Последовательность т.н. треугольных чисел определяется следующим образом: первый член последовательности равен 1, второй на 2 больше первого, третий на 3 больше второго и т.д. Т.е. треугольными являются числа 1,3,6,10,15,…. Вводится число. Определить, является ли введенное число треугольным.

2. Вводится число. Найти среднее арифметическое цифр данного числа, не равных нулю.

3. Вводятся числитель и знаменатель дроби. Вывести: знак, целую часть, сокращенные числитель и знаменатель.

[alex_fcsm]

Смысл решения на ПАскале

var i,j,n:integer;
    sum:real;
    
begin
readln(n);
sum:=0;
j:=0;
while n<>0 do
 begin
  i:=n mod 10;
  if i <> 0 then begin
                  inc(j);
                  sum:=sum+i;
                 end;
  n:=n div 10;
 end;
 if j<>0 then sum:=sum/j;
 writeln(sum:3:2);
end.

[DJ Kost]

мыне в Делфи нада и не консольную =(

[alex_fcsm]

Сообщение от DJ Kost

мыне в Делфи нада и не консольную =(

Конечно можно подождать пока Вам сделают, но можно и самому на форму кинуть Label. edit, button и вставить текст в обработчик(с соответствующими изменениями)