1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<span>uses</span> crt;
<span>var</span> a<span>,</span>b<span>,</span>c<span>,</span>d<span>,</span>s1<span>,</span>s2<span>,</span>t<span>:</span><span>integer</span>; k<span>:</span><span>boolean</span>;
<span>begin</span>
clrscr;
<span>write</span><span>(</span><span>'Введите четырех значное число: '</span><span>)</span>; <span>readln</span><span>(</span>t<span>)</span>;
a<span>:=</span>t <span>div</span><span>1000</span>;
b<span>:=</span><span>(</span>t <span>mod</span><span>1000</span><span>)</span><span>div</span><span>100</span>;
c<span>:=</span><span>(</span>t <span>mod</span><span>100</span><span>)</span><span>div</span><span>10</span>;
d<span>:=</span>t <span>mod</span><span>10</span>;
s1<span>:=</span>a<span>+</span>b;
s2<span>:=</span>c<span>+</span>d;
k<span>:=</span>s1<span>=</span>s2;
<span>writeln</span><span>(</span>k<span>)</span>;
<span>readln</span><span>end</span>.
Var n,sum,d,ind,first:integer;
begin
Write('n');
Readln(n);
d:=1;
ind:=0;
sum:=0;
if n div d=0 then
begin
ind:=1;
sum:=n;
end
else
begin
while n div d<>0 do
begin
inc(ind);
sum:=sum+(n div d) mod 10;
d:=d*10;
end;
end;
Writeln('suma',Sum);
Writeln('kolvo',ind);
first:=(n div round(d/10)) mod 10;
writeln('first',first);
readln;
end.
Горький острый. теплый горячий.сухой влажный. я не я не знаю как то так
1-А
2-Б
3-В
4-А
5-Б
6-А
7-А
8-Б
9-В
10-Б
11-Б
12-Б
13-В
14-Б
15-А
var
a, b: real;
begin
writeln('Введите 2 числа');
readln(a, b);
if a > b then
begin
a:= a + 3;
b:= b - 5;
end;
if a < b then
begin
a:= a - 5;
b:= b + 3;
end;
writeln('a = ', a, ', b = ', b);
end.
