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.
Поделитесь своими знаниями, ответьте на вопрос:
Правильно ли выполнил «разработка устройства дешифрации кодов с числом входов 5 с числом выходов 30 на базе имс к531ид14»
ответ: да
объяснение:
всё правильно