Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
954-459=495
все условия соблюдены
var x1,x2,x3,s1,s2,s3: integer;
function sumofnumber(num: integer): integer;
var s: string;
i: integer;
begin
s: =str(num);
for i: = 1 to length(s) do
sumofnumber: = sumofnumber+int(s[i]);
end;
read(x1,x2,x3);
s1: =sumofnumber(x1);
s2: =sumofnumber(x2);
s3: =sumofnumber(x3);
if s1> s2 and s1> s3 then writeln(x1);
if s2> s1 and s2> s3 then writeln(x2);
if s3> s2 and s3> s1 then writeln(x3);
end.
в правильности написания функции типов не уверенна.
if x< 10 then x: =10
else
if x< 15 then x: = 16
else x: = 20
для обоих вариантов х=10, потому что дальше первой строчки оно не пойдет
var
a: array[1..100] of integer;
i,s,r: integer;
for i: =1 to 100 do read(a[i]);
for i: =1 to 100 do
if a[i]< 0 then r: =r+a[i] else s: =s+a[i];
writeln('сумма всех положительных чисел= ',s);
writeln('сумма всех отрицательных чисел= ',r);
readln
посчитает максимум 100 чисел.
Популярные вопросы