Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.06.2018 18:44
- Информатика
- remove_red_eye 3807
- thumb_up 44
Ответы и объяснения 1
Var x,y,z,a1,a2,c:real;
begin
write('x='); readln(x);
if x<3
then y:=abs(x)+2
else if x=3 then begin write('a1='); readln(a1); y:=x*x-a1; end
else if x<10 then begin write('c='); readln(c); y:=x-c; end
else begin write('a2='); readln(a2); y:=a2*a2; end;
z:=y*y+x*x;
writeln('z=',z);
end.
Пример:
x=4
c=5
z=17
- 12.06.2018 06:05
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.