Плиз помогите всё в PascalAbc.net

0 голосов
37 просмотров

Плиз помогите всё в PascalAbc.net


image

Информатика (84 баллов) | 37 просмотров
Дан 1 ответ
0 голосов

Uses crt;
var input,a,b,c:integer;
begin       
readln(input);       
if(input >= 100) and (input <= 999) then         <br>begin               
writeln('Число трехзначное.');               
if (input mod 2 <> 0) then                       
writeln('Число нечетное.');       
end;               
readln(a,b,c);       
if(a > b ) and (a > c) then           
a := b + c;       
if(b > a  ) and (b > c) then           
b := c + a;            
if(a < c ) and (b < c) then           
c := a + b;                  
writeln('a = ', a);       
writeln('b = ', b);       
writeln('c = ', c);
end.

(404 баллов)
0

Это все 3? спасибо большое тебе можешь ещё 2 решить другие Плиз?

0

Все 3

0

Это все 3 а где 1,2 и 3 я просто не понимаю

0

А все

0

спс