Пожаловаться
- 09.10.2017 03:17
- Информатика
- remove_red_eye 10705
- thumb_up 25
Ответы и объяснения 1
1) a =2
2) y =17
3)
var a,b:word;
begin
readln(a,b);
if (b mod a=0) then
writeln('да') else writeln('нет');
readln
end.
4)
var a,b:real;
begin
readln(a,b);
If a>b then
begin
a:=abs(a*b);
b:=abs(a-b);
end
else
begin
a:=abs(a-b);
b:=abs(a*b);
end;
writeln('a= ',a:0:2,' ','b= ',b:0:2);
readln
end.
2) y =17
3)
var a,b:word;
begin
readln(a,b);
if (b mod a=0) then
writeln('да') else writeln('нет');
readln
end.
4)
var a,b:real;
begin
readln(a,b);
If a>b then
begin
a:=abs(a*b);
b:=abs(a-b);
end
else
begin
a:=abs(a-b);
b:=abs(a*b);
end;
writeln('a= ',a:0:2,' ','b= ',b:0:2);
readln
end.
Пожаловаться
- 01.01.1970 00:00
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы