1.
var a: real;
x,y: integer;
begin
readln(x,a,y);
writeln('1 kg konfet stoit ', a/x:1:2);
writeln(y,' kg konfet stoyat ', a/x*y:1:2);
readln;
end.
2.
var a,s,p: integer;
begin
readln(a);
s:=a mod 10 + a div 10;
p:=(a mod 10)*(a div 10);
writeln(s);
writeln(p);
readln;
end.
3.
var a,b: integer;
begin
readln(a);
b:=(a mod 10)*10+(a div 10);
writeln(b);
readln;
end.
Это если без циклов.
Диапазон Z100:AB109
Z - AA - AB
100
101
102
103
104
105
106
107
108
109
3*10=30
<span>Ответ 30</span>
И началась слепая вайна между памятью и процом.проц соображал но забывал свои ходы. а память смотрела и запоминала врага. я думаю проц.
1) if x mod 2=0 then x:=x+3, else x:=5*x;
2) if x<y then x:=(x+y)/2, else y:=3*x*y;
3) if k<0 then k:=abs(k), else m:=1;
writeln ('k=','m=');
end.