Var a, s,d,ed, ost: integer; begin a: =99; repeat a: =a+1; s: = a div 100; ost: = a mod 100; if ost> 9 then begin d: = ost div 10 ; ost: =ost mod 10; end else d: = 0; if ost< 10 then ed: =ost; until (a< 1000) and (a*a=((s+d+ed)*(s+d+ed)*(s+d+; writeln('это число: ',a: 3); end.
Спасибо
Ответ дал: Гость
1)
var
a,b,x,y: real;
begin
readln(a,b);
x: =(a+b)/2;
y: =2*a*b;
if a> b then
begin
a: =y;
b: =x;
end
else
begin
a: =x;
b: =y;
end;
writeln('a=',a: 8: 3);
writeln('b=',b: 8: 3);
end.
2)
var
d,m: integer;
begin
readln(d,m);
if (d< 1) or (d> 31) then writeln ('день введен неверно');
if (m< 1) or (m> 12) then writeln ('месяц введен неверно');
end.
3)
var
a,b,c: integer;
begin
readln(a,b,c);
if (a> b) and (a> c) then writeln(a);
if (b> a) and (b> c) then writeln(b);
if (c> a) and (c> b) then writeln(c);
end.
Ответ дал: Гость
var i, j, k, p: integer; a, b: array[1..10] of integer;
begin k : = 0; for i : = 1 to 10 do begin a[i] : = random(20) - 10; write(a[i]: 3); if a[i] > 0 then begin k : = k + 1; b[k] : = a[i]; end; end; for i : = 1 to k - 1 do for j : = i + 1 to k do if b[i] > b[j] then begin p : = b[i]; b[i] : = b[j]; b[j] : = p; end; writeln; for i : = 1 to k do write(b[i]: 3); end.
Популярные вопросы