Вопрос по информатике:
Решите задачи по информатике!!!!! помогите!!!!! срочно нужно!!!!!
- 15.06.2016 10:21
- Информатика
- remove_red_eye 7238
- thumb_up 9
Ответы и объяснения 1
задача1
var
x,y: real;
begin
writeln ('введи x');
read (x);
if (x<=0) then y:=0 else y:=sqrt(x);
writeln ('y=',y) ;
end.
задача2
var
x,e,d,n: integer;
begin
writeln ('введи число');
read (x);
e:=x mod 10;
d:=x div 10;
n:=e+d;
writeln ('сумма цифр числа равна ',n) ;
end.
- 16.06.2016 15:43
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.