- 11.01.2018 12:57
- Информатика
- remove_red_eye 17363
- thumb_up 87
Ответы и объяснения 2
var
a, b, c : Integer;
begin
Write('Vvedite 1 chislo: '); ReadLn(a);
Write('Vvedite 2 chislo: '); ReadLn(b);
Write('Vvedite 3 chislo: '); ReadLn(c);
if b > a then a := b;
if c > a then a := c;
Writeln('Naibolshee chislo: ', a);
Writeln('Kvadrat chisla: ', sqr(a));
end.
- 12.01.2018 08:35
- thumb_up 18
var a, b, c, max: integer;
begin
readln(a, b, c);
if (a >= b) then
max := a
else
max := b;
if (c > max) then
max:=c;
write(sqr(max));
readln;
end.
- 13.01.2018 19:38
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.