Program qwe;
var A:longint;
s:byte;
begin
write('Введите число: ');
readln(A);
s := 0;
A := abs(A);
while A > 0 do
begin
if not odd(A) then
inc(s, A mod 10);
A := A div 10
end;
writeln('Сумма чётных цифр = ', s);
readln
<span>end</span>
Их бывает 4 вида:
левое
правое
по середине
по ширине
выбери сам
<em>Вот так)</em>
<em><form autocomplete="off">
</em>
<em> <input type="text" name="test" autocomplete="off">
</em>
<em></form></em>
Калькулятор может выполнять задачи арифметики, и только те, которые в него заложены. Он не может быть перепрограммирован. Компьютер может выполнять любые задачи информатики и не только, может быть перепрограммирован.