• Структурные операторы в языке pascal: Развилка и выбор.
    1.Даны целые цисла m и n. если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.
    2.Составить программу, которая по заданному году и номера месяца m определяет количество дней в этом месяце.

Ответы 1

  • первая прога:program pr1;uses crtvar m,n:real;beginclrscr;writeln('insert the numbers');readln(m, n);if m <> n then beginif m > n then beginn:=m;endelse beginm:=n;writeln(m,n);end;endelse begin m:=0;n:=0;writeln(m,n);end;end.Вторая прога:program pr2;ues crtvar y,m,d,k: integer;beginclrscr;writeln('insert the year);readln(y);writeln('insert the month');readln(m);if m > 12 then beginwriteln('error');end;if m mod 2 <> 0  then begind:= 31;end;if m=2 then begind:= 28;end;if m mod 2 = 0 then begind:=30;end;writeln('the number of the days in your month:');writeln(d);end.
    • Автор:

      nikivbed
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years