Вчом ошибка: //fpc 3.0.0 program fizika; uses crt; var num,a,b,c,d,e,i,f,g,h,j,k,r,t : intenger; begin clrscr; writeln('введите число №1: '); readln (a); writeln('введите число №2: '); readln (b); writeln ('1) швидкість'); writeln ('2) шлях'); writeln ('3) час '); writeln ('4) густина '); writeln ('5) маса '); writeln ('6) обєм '); writeln ('7) висота '); writeln ('8) площа '); writeln ('9) сила тяжіння'); writeln ('10) маса '); writeln ('11) прискорення вільного падіння '); writeln('введите число от 1 до 11: '); readln (num); c: =a/b; d: =c*b; e: =d/c; i: =a/b; f: =i*b; g: =f/i; h: =a/b; j: =a/h; k: =a*b; r: =k/b; t: =k/r; case num of 1: writeln ('швидкість дорівнює: ') (c) ('м/с'); 2: writeln ('шлях дорівнює: ') (d) ('м'); 3: writeln ('час дорівнює: ') (e) ('c'); 4: writeln ('густина дорівнює: ') (i) ('кг/м3'); 5: writeln ('маса дорівнює: ') (f) ('кг'); 6: writeln ('обєм дорівнює: ') (g) ('м3'); 7: writeln ('висота дорівнює: ') (h) ('м'); 8: writeln ('площа дорівнює: ') (j) ('м2'); 9: writeln ('сила тяжіння дорівнює: ') (k) ('н'); 10: writeln ('маса дорівнює: ') (r) ('кг'); 11: writeln ('прискорення вільного падіння дорівнює: ') (t) ('н/кг'); end; readln end.

nastyahanna4728    1   28.09.2019 15:00    0