Program z1; var t, c, d, e, n, z:integer; begin
writeln ('введите любое четырёхзначное число'); writeln; readln (n);
t:=n div 1000;
c:=(n-t*1000) div 100;
d:=(n-t*1000-c*100) div 10;
e:=n-t*1000-c*100-d*10;
z:=t+c+d+e; writeln (z); writeln;
if z mod 2 = 0 then writeln ('да, сумма цифр в числе чётна')
else writeln ('нет, сумма цифр в числе не чётна'); end.

0 0

4 года назад

Прочитать ещё 2 ответа

Составьте алгоритм нахождение периметра прямоугольника в словесный форме

dionn

Чтобы найти площадь прямоугольника, нужно его длину умножить на ширину. то есть ели у нас прямоугольник со сторонами
8
5. 5
8
то нам надо 8см умножить на 5см
8×5=40квадратных сантиметров
ответ:40см в квадрате

0 0

4 года назад

ПОМОГИ СРОЧНОО!!!! Лепрекон Вася, снимая с карты часть своих денег ( коинов ) в банкомателье Лепрекон-банка, при вводе снимаем о

Майба [30]

Очевидно, что # и æ - это самые большие цифры, то есть мы должны из 2000 вычесть (98&+98&). Примем пока, что Q=0, тогда 2000-(980+980)=40. Из условия задачи видно, что остаток суммы должен быть меньше 27. Это возможно только если &=7. Только в этом случае 2000-(987+987)=26, что меньше 27.
Ответ: &=7<span>
</span>

0 0

3 года назад