Составить программу на языке Паскаль для вычисления ЭВМ значений переменных

243

326

Посмотреть ответы 1

Ответы на вопрос:

амина653

Информатика

4,7(65 оценок)

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.