Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Образовательный студенческий форум _ Информатика / Программирование _ ЗАДАЧКА в С
Автор: @ Alenka @ 15.5.2011, 16:10
Дан массив из n четырехзначных натуральных чисел.Вывести на экран только те,у которых сумма первых двух цифр равна сумме двух последних.
помагите сделать в паскале
Автор: граф Монте-Кристо 15.5.2011, 16:28
Выкладывайте свои идеи и наработки. Если их нет и нет желания делать что-либо самостоятельно - обращайтесь в платный раздел.
Автор: @ Alenka @ 15.5.2011, 16:33
function Summ(n:integer):boolean;
var a,b,c,d:byte;
begin
a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;
if a+b=c+d then Summ:=true
else Summ:=false;
end;
В программе
for i:=1001 to 9999 do
begin
if Summ(i) then writeln(i);
if i mod 20=0 then readln;//это чтоб все числа увидеть
end;
Автор: граф Монте-Кристо 15.5.2011, 16:39
Функция вроде правильно написана,а вот в программе 2 косяка. Во-первых, почему i от 1001 до 9999? У Вас этот массив уже дан,и числа там конкретные,а не все возможные четырёхзначные.
Во-вторых, Вам же надо на С писать. 
Pascal - это, конечно, хороший язык, но, всё-таки, не С.
Автор: Sergio Ramos 15.5.2011, 19:30
C++
using namespace std;
bool f (int x) {
int a,b,c,d;
a=x/1000;
b=(x-a*1000)/100;
c=(x-a*1000-b*100)/10;
d=x%10;
if(a+b==c+d) return true;
else return false;}
int main () {
int n;
cin >> n;
int *a=new int [n];
for (int i=0;i<n;i++) {
cin >> a[i];
if (f(a[i])) cout << a[i] << " ";
}
return 0;}
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)