Question

Вчом ошибка: //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.

Answer 1

program Fizika;

uses crt;

var NUM,a,b,c,d,e,i,f,g,h,j,k,r,t:integer;

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 div b;

d:=c*b;

e:=d div c;

i:=a div b;

f:=i*b;

g:=f div i;

h:=a div b;

j:=a div h;

k:=a*b;

r:=k div b;

t:=k div 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;

end.