Program z1; var a,b:real; f:longint; begin writeln('Ââåäèòå Г¬Г*Г±Г±Гі Гў ГЄГЈ:'); read(a); writeln('Ââåäèòå åäèГ*èöó âûâîäГ*:'); writeln('1 - ìèëëèãðГ*ìì'); writeln('2 - ГЈГ°Г*ìì'); writeln('3 - êèëîãðГ*ìì'); writeln('4 - öåГ*ГІГ*ГҐГ°'); writeln('5 - ГІГ®Г*Г*Г*'); read(f); if (f<1) or (f>6) then begin writeln('Ïîâòîðèòå ââîä'); read(f); end; if f=1 then begin b:=a*1000000; write(a,' ГЄГЈ=',' ',b,' ','ìèëëèãðГ*ìì'); end; if f=2 then begin b:=a*1000; write(a,' ГЄГЈ=',' ',b,' ','ГЈГ°Г*ìì'); end; if f=3 then begin b:=a; write(a,' ГЄГЈ =',' ',b,' ','êèëîãðГ*ìì'); end; if f=4 then begin b:=a/100; write(a,' ГЄГЈ=',' ',b,' ','öåГ*òðîâ'); end; if f=5 then begin b:=a/1000; write(a,' ГЄГЈ=',' ',b,' ','ГІГ®Г*Г*'); end; writeln('ÏðîãðГ*ììГ* Г§Г*âåðøåГ*Г*'); end.
var a,b:real;
f:longint;
begin
writeln('Ââåäèòå Г¬Г*Г±Г±Гі Гў ГЄГЈ:');
read(a);
writeln('Ââåäèòå åäèГ*èöó âûâîäГ*:');
writeln('1 - ìèëëèãðГ*ìì');
writeln('2 - ГЈГ°Г*ìì');
writeln('3 - êèëîãðГ*ìì');
writeln('4 - öåГ*ГІГ*ГҐГ°');
writeln('5 - ГІГ®Г*Г*Г*');
read(f); if (f<1) or (f>6) then begin writeln('Ïîâòîðèòå ââîä');
read(f);
end;
if f=1 then begin
b:=a*1000000;
write(a,' ГЄГЈ=',' ',b,' ','ìèëëèãðГ*ìì');
end;
if f=2 then begin
b:=a*1000;
write(a,' ГЄГЈ=',' ',b,' ','ГЈГ°Г*ìì');
end; if f=3 then begin
b:=a;
write(a,' ГЄГЈ =',' ',b,' ','êèëîãðГ*ìì');
end; if f=4 then begin
b:=a/100;
write(a,' ГЄГЈ=',' ',b,' ','öåГ*òðîâ');
end;
if f=5 then begin
b:=a/1000;
write(a,' ГЄГЈ=',' ',b,' ','ГІГ®Г*Г*');
end;
writeln('ÏðîãðГ*ììГ* Г§Г*âåðøåГ*Г*');
end.