Var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('s = ',s);
end.
Пример:
125
s = 8
1 обозначить центр
2 начертить самый большой круг
3 начертить круг поменьше
4 отступать от центра 5 мм влево
5 начертить самый маленький круг
6 отступить от центра 5 мм вправо
7 начертить второй самый маленький круг таких же размеров
1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.
<span>10001011111100
</span><span>1011000101100010
</span>1000110110100
<span>111001000
</span><span>101011000011
</span><span>101100010110</span>