Program n1; var x:integer; begin writeln('Введите число'); readln(x); if (x mod 4=0) then writeln('Является') else writeln('Не является'); end.
program n2; var a,b:integer; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); if a>b then writeln(a*b*2,' ',(a+b)/2) else writeln((a+b)/2,' ',a*b*2); end.
Событие: воспроизведение: видео и аудиофайла. Источник информации: пользователь. Приемник информации: телевизор. Информациональный носитель: телевизор.
Событие: воспроизведение музыкального фрагмента в живую. Источник информации: ученик. Приемник информации: ближайшие слушатели. Информациональнный носитель: гитара.
Можно, долго не размышляя, решить задачу методом "тупого перебора".
program SpecialHappyTickets;
var i, j, k, l, m, n, s: integer;
begin s := 0; for i := 0 to 9 do for j := 0 to 9 do for k := 0 to 9 do for l := 0 to 9 do for m := 0 to 9 do for n := 0 to 9 do if (i + j + k) = (l + m + n) then if i + j + k = 13 then s := s + 1; Writeln(s) end.
<em><u>Результат выполнения программы:</u></em> 5625