Program qq; var a, count2, count3: integer; begin writeln('Введите число'); readln(a); count2:=0; count3:=0; while a>0 do begin if a mod 10 = 2 then count2:=count2+1; if a mod 10 = 3 then count3:=count3+1; a:=a div 10; end; if count2>count3 then a:=count3 else if count3>count2 then a:=count2 else a:=count2; if a<>0 then while a>0 do begin writeln('Выведено число 23'); a:=a-1; end else writeln('Нельзя получить число 23 из цифр введённого числа'); end.
begin Assign(f1, 'input.txt'); Reset(f1); Assign(f2, 'output.txt'); Rewrite(f2); Readln(f1, n); if n < 0 then Writeln(f2, abs(n)) else if n = 0 then Writeln(f2, 0) else Writeln(f2, sqr(n)); Close(f1); Close(f2) end.
А это, если учесть, что модуль нуля равен нулю:
var f1, f2: Text; n: integer;
begin Assign(f1, 'input.txt'); Reset(f1); Assign(f2, 'output.txt'); Rewrite(f2); Readln(f1, n); if n <= 0 then Writeln(f2, abs(n)) else Writeln(f2, sqr(n)); Close(f1); Close(f2) end.
var a, count2, count3: integer;
begin
writeln('Введите число');
readln(a);
count2:=0;
count3:=0;
while a>0 do
begin
if a mod 10 = 2 then
count2:=count2+1;
if a mod 10 = 3 then
count3:=count3+1;
a:=a div 10;
end;
if count2>count3 then
a:=count3
else
if count3>count2 then
a:=count2
else
a:=count2;
if a<>0 then
while a>0 do
begin
writeln('Выведено число 23');
a:=a-1;
end
else
writeln('Нельзя получить число 23 из цифр введённого числа');
end.
var
f1, f2: Text;
n: integer;
begin
Assign(f1, 'input.txt'); Reset(f1);
Assign(f2, 'output.txt'); Rewrite(f2);
Readln(f1, n);
if n < 0 then Writeln(f2, abs(n))
else
if n = 0 then Writeln(f2, 0)
else Writeln(f2, sqr(n));
Close(f1); Close(f2)
end.
А это, если учесть, что модуль нуля равен нулю:
var
f1, f2: Text;
n: integer;
begin
Assign(f1, 'input.txt'); Reset(f1);
Assign(f2, 'output.txt'); Rewrite(f2);
Readln(f1, n);
if n <= 0 then Writeln(f2, abs(n))
else Writeln(f2, sqr(n));
Close(f1); Close(f2)
end.