Домашние задания: Информатика

Домашние задание по информатике 9 класс

Даны целые числа a, b, c. Если a ≤ b ≤ c, то все числа заменить их квадратами, если a>b>c, то каждое число заменить наибольшим из них, в противном случае сменить знак каждого числа.
Нужно на паскале
НП
Надюшка Прокопчук
199 
 Program P1; 

uses crt; 

var a, b, c: integer; 

begin 

clrscr; 

writeln ('Введите с клавиатуры 3 целых числа. После ввода каждого числа нажимайте клавишу Enter.'); 

write ('Введите 1-ое число: '); 

readln (a); 

write ('Введите 2-ое число: '); 

readln (b); 

write ('Введите 3-е число: '); 

readln (c);

writeln ('Были введены числа: ', a, ' ', b, ' ', c); 

if (ac) then writeln ('Результат: ', a, ' ', a, ' ', a) else writeln ('Результат: ', -a, ' ', -b, ' ', -c); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.
Евгений Шевченко
Евгений Шевченко
43 559
Лучший ответ
PascalABC:

var a, b, c, M : integer;
begin
Write (' a = '); ReadLn (a);
Write (' b = '); ReadLn (b);
Write (' c = '); ReadLn (c);
M := Max(Max (a,b), c);
if (a <= b) and (a <= c) and (b <=c) then
WriteLn ( ' ', sqr(a), ' ', sqr(b), ' ', sqr(c)) else
if (a > b) and (a > c) and (b > c) then
WriteLn ( ' ', M, ' ', M, ' ', M) else
WriteLn (' ', (-1)*a, ' ', (-1)*b, ' ', (-1)*c);
end.

ЛМ
Лада Макарова
73 229
Попробуйте это.
 program task; 

var 

  a, b, c: integer; 

begin 

  write('Enter a, b, c: '); 

  readln(a, b, c); 

 

  if (a  c) then 

  begin 

    a := a; 

    b := a; 

    c := a; 

  end 

  else 

  begin 

    a := -a; 

    b := -b; 

    c := -c; 

  end; 

 

  writeln('Result: ', a, ' ', b, ' ', c); 

  readln; 

end.
Юлия Варосян
Юлия Варосян
228
Евгений Шевченко Смысл был делать такой длинный код?

Похожие вопросы