Вопрос по информатике:
Помогите только 21 решить, просто на тетради или на листочке программу написать, на компе сам перепишу , так надо просто , help me
Пожаловаться
- 03.01.2016 16:20
- Информатика
- remove_red_eye 8063
- thumb_up 48
Ответы и объяснения 1
Var x,y,z:integer;
begin
writeln('x, y, z:');
readln(x,y,z);
if x<0 then x:=1 else x:=x*x;
if y<0 then y:=1 else y:=y*y;
if z<0 then z:=1 else z:=z*z;
writeln('x = ',x,' y = ',y,' z = ',z);
end.
Пример:
x, y, z:
6 0 -2
x = 36 y = 0 z = 1
begin
writeln('x, y, z:');
readln(x,y,z);
if x<0 then x:=1 else x:=x*x;
if y<0 then y:=1 else y:=y*y;
if z<0 then z:=1 else z:=z*z;
writeln('x = ',x,' y = ',y,' z = ',z);
end.
Пример:
x, y, z:
6 0 -2
x = 36 y = 0 z = 1
Пожаловаться
- 04.01.2016 18:43
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы