Дано 2 числа.если их сумма больше 100,то сумму уменьшить в 2 раза.в противном случае увеличить в 2 раза

109

188

Посмотреть ответы 2

Ответы на вопрос:

БМадина3

Информатика

4,6(3 оценок)

Program n1; var a,b,sum: real; begin readln(a,b); sum: =a+b; if sum> 100 then sum: =sum/2 else sum: =sum*2; write(sum); end.

karinarei2017

Информатика

4,5(31 оценок)

Азачем нам, собственно, находить количество цифр в числе? можно просто сравнивать соседние числа. uses crt; var a,k,max: integer; begin readln(a); while a> 0 do begin k: =a mod 10; if k> max then max: =k; a: =a div 10; end; writeln(max); end.