profile
Опубликовано 4 года назад по предмету Информатика от kaisinpavel

1.Вводятся 4 числа целого типа :a b c d .определить наибольшее среди них.

2.последовательно вводятся N целых чисел .найти сумму всех отрицательных среди них.

  1. Ответ
    Ответ дан Аккаунт удален
    1.
    var a,b,c,d:integer;
    begin
    read (a,b,c,d);
    begin
    if (a>b) and (a>c)and (a>d) then writeln ('Большее - ',a);
    if (b>a) and (b>c)and (b>d) then writeln ('Большее - ',b);
    if (c>a) and (c>b)and (c>d) then writeln ('Большее - ',c);
    if (d>a) and (d>b)and (d>c) then writeln ('Большее - ',d);
    if (a=b) and (a=c)and (a=d)and (b=c) and (b=d) and (c=d) then writeln ('Все числа равны');
    end;
    end.
Самые новые вопросы