Вчом ошибка: //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.
Ответы на вопрос:
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.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ruzannakokh18.09.2020 15:18
-
Tommh07.04.2022 03:23
-
Marshmallow12304.07.2020 05:51
-
Tto203613.03.2020 06:48
-
elensarkisian05.11.2022 19:53
-
fty354y416.05.2021 15:22
-
fewralskajaribozers323.10.2022 16:40
-
DeStreudG28.12.2022 14:58
-
лера228530.10.2020 11:36
-
aidos200809.09.2020 14:47
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.