ъЧто выведет программа при вызове F(8)? procedure F(n: integer); begin if n > 0 then begin write('В'); G(n - 1); end; end; procedure G(n: integer); begin write('A'); if n > 1 then begin write('A'); F(n - 2); end; end;
Носитель информации (информационный носитель) — любой материальный объект или среда, используемый для хранения или передачи информации.Все носители информации применяются для: записи, хранения, чтения, передачи информации. Самым распространенным носителем информации до недавнего времени была бумага. Но время идет, и качество бумажных носителей перестало устраивать современное общество, озабоченное все возрастающим и возрастающим количеством информации, которое нужно было сохранить и передать потомкам. Информация записывается на носители информации посредством изменения физических, химических или механических свойств запоминающей среды. Таким образом мы с вами подошли к понятию запоминающего устройства.
var dd,mm,gg:integer;
begin
readln(dd,mm,gg);
case dd of
1..5: writeln('начало');
6..14: writeln('первая половина');
15: writeln('середина');
16..25: writeln('вторая половина');
26..31: writeln('конец');
end;
case mm of
1: writeln('января');
2: writeln('февраля');
3: writeln('марта');
4: writeln('апреля');
5: writeln('мая');
6: writeln('июня');
7: writeln('июля');
8: writeln('августа');
9: writeln('сентября');
10: writeln('октября');
11: writeln('ноября');
12: writeln('декабря');
end;
if gg mod 4=0 then writeln ('високосный') else writeln('не високосный');
end.
---
var a:integer;
begin
readln(a);
writeln(a mod 10,a);
end.