Пожаловаться
- 18.02.2015 16:54
- Информатика
- remove_red_eye 8055
- thumb_up 35
Ответы и объяснения 1
Var A,B,C,M,P:real;
begin
write('Введите A = ');Readln(A);
write('Введите B = ');Readln(B);
write('Введите C = ');Readln(C);
M:=A;
If B
if C
P:=(A*B*C)/M;
Write('P = ',P);
end.
begin
write('Введите A = ');Readln(A);
write('Введите B = ');Readln(B);
write('Введите C = ');Readln(C);
M:=A;
If B
if C
P:=(A*B*C)/M;
Write('P = ',P);
end.
Пожаловаться
- 19.02.2015 18:09
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы