Может кому пригодится

Программа для подсчета чисел сумма которых равна a

String st
int a = 0;
int b = 0;
st = "100000"
for (int j= 100000; j<=999999;j++); // от 100000 и до 999999
for(int i=1 ; i<=3;i++)
a = a +STI (s );
fop(int i=3; i<6;i++);
b = b + STI (s);
if(a ==b)
WriteLine(st);

 

программа для вывода чисел и вывод общего кол-во цифр которых выдала программа
Program dzchisla;
Var
a,b,i,k:integer;
Begin
Writeln('введите число A');
Readln(a);
Writeln('введите число B');
Readln(b);
k:=0;
For i:=A to B do
begin
end;
k:=k+1;
end;
Writeln('количество чисел= ',k);
Readln;
End.

 

Паскаль ? ))

 

Ох паскальь )

 

последняя pascal первый на сях написал

 

просто подумал что людям не помешает т.к учусь на программиста преподаватели иногда такую муть задают что выходит за грани разумного :)

если нужно буду выкладывать еще :) по два кода в неделю :)
да и еще насчет первой писать в биладер 6 :)

 

Спс

 

всегда рад :)

 

У меня в методичке подобное,тоже иногда задаст невозможное препод
только на сях пишу)

 

благодарю)

 

завтра еще вылажу :)

 

я ушел с программирования...

 

что случилось ? :)