- 20.07.2018 23:23
- Информатика
- remove_red_eye 4078
- thumb_up 5
Ответы и объяснения 2
Uses crt;
var i,k,p:real;
begin
writeln('Введите k и p');
readln(k,p);
if k>abs(p) then i:=3*sqr(k)*k+3*sqr(p);
if k
write(i);
end.
- 21.07.2018 00:35
- thumb_up 26
Program al;
var k,p:integer;
i:real;
begin
writeln('k=');
readln(k);
writeln('p=');
readln(p);
i:=0;
if k> abs(p) then i:=3*k*k*k+2*sqr(p);
if k< abs(p) then i:= abs( k-p);
if k=abs(p) then i := sqr ( k-p);
writeln(' znacenie i=',i);
readln;
end.
- 22.07.2018 13:28
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.