Var a,s1,s2: integer; begin read (a); if (a> =1000)and (a< =9999)then begin s1: =(a mod 10) + ((a mod 1000) div 100); s2: =(a div 1000) + ((a mod 100) div 10); if (s1> s2)then writeln ('сумма цифр,стоящих на четных местах больше суммы цифр, стоящих на нечетных местах'); if (s1< s2)then writeln ('сумма цифр,стоящих на нечетных местах больше суммы цифр, стоящих на четных местах'); if (s1=s2)then writeln ('сумма цифр,стоящих на четных местах равна сумме цифр, стоящих на нечетных местах'); end else writeln ('вы ввели не 4-ёхзначное число'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какой алгоритм построения трехмерной модели гирлянды состоящей из 5 шаров? в компасе 3d
ответ:
#include
int main() {
int max = 0, k;
do {
std: : cin > > k;
if(k! =0 & & (max == 0 || max < k))
max = k;
} while(k);
if(max)
std: : cout < < "max = "< < max < < std: : endl;
system("pause");
return 0;
}