- 27.03.2015 18:21
- Информатика
- remove_red_eye 17824
- thumb_up 44
Ответы и объяснения 2
Var a,b,a1,b1:integer;
begin
readln(a,b);
a1:=sqr(a);
b1:=sqr(b);
if a1>b1 then write(a1)
else write(b1);
end.
- 28.03.2015 15:58
- thumb_up 33
Конкретно я затупила на этой легкой программе, но все таки
Program kvadrat;
var a,b:integer;
begin
writeln('введите два числа');
readln(a);
readln(b);
if (a>b)
then
begin
a:= a*a;
write(a);
end;
If (a
begin
b:= b*b;
write(b);
end;
end.
- 29.03.2015 01:32
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.