//так и не осознала как вводить функции с клавиатуры. Спрошу у учителя.
var b1,b2,b:boolean;
function imp(a, b : boolean) : boolean;
begin
imp:=(not a) or b;
end;
begin;
writeln('Implication');
For b1:=false to true do
For b2:=false to true do
writeln(b1:7,b2:7,imp(b1,b2):7);
writeln('not (x) or y');
For b1:=false to true do
For b2:=false to true do
writeln(b1:7,b2:7,((not b1) or b2):7);
For b1:=false to true do
For b2:=false to true do
if imp(b1,b2)<>((not b1) or b2) then
begin;
writeln('Не эквивалентны');
exit;
end;
writeln('Эквивалентны');
<span>end.</span>
Var month: array[1..12]of string[10]=
(' январь ',' февраль ',' март ',' апрель ',' май ',' июнь ',
' июль ',' август ',' сентябрь ',' октябрь ',' ноябрь ',' декабрь ');
procedure p(s:string);
begin
writeln(s);
end;
var N_M:integer;
begin
writeln(' введи номер месяца ');
readln(N_M);
case N_M of
1..12: p(month[N_M]);
else p(' такого месяца нет ');
end;
case N_M of
1,3,5,7,8,10,12: p(' 31 день ');
4,6,9,11: p(' 30 дней ');
2: p(' 28 дней ');
end;
case N_M of
12,1,2: p(' зима');
3,4,5: p(' весна');
6,7,8: p(' осень');
9,10,11: p(' лето');
end;
end.
Пример:
<span> введи номер месяца
5
май
31 день
весна</span>
//Pascal ABC.NET v3.1 сборка 1172
//Вариант без ввода переменных, выводится системная дата
Uses
system;
var
t: DateTime;
begin
t := DateTime.now;
{если не работает, попробуйте t:=CurrentDateTime;}
writeln('*************');
writeln('* ', t.day, '.', t.month, '.', t.year, ' *');
writeln('*************');
end.
Пример вывода:
*************
* 10.4.2016 *
*************
//Вариант со вводом переменных
Var
s,c:string;
i:integer;
begin
s:='* ';
write('Введите день:'); readln(c);
if length(c)=1 then c:='0'+c;
s:=s+c+'.';
write('Введите месяц:'); readln(c);
if length(c)=1 then c:='0'+c;
s:=s+c+'.';
write('Введите год:'); readln(c);
s:=s+c+' *';
for i:=1 to length(s) do
write('*');
writeln;
writeln(s);
for i:=1 to length(s) do
write('*');
end.
Пример ввода:
Введите день:10
Введите месяц:4
Введите год:2016
Пример вывода:
**************
* 10.04.2016 *
**************
Всего символов в книге - 60 * 80 * 100 = 480 000<span>;
1 символ – это 1 байт, в книге содержится 480 000 байт информации
</span><span>Переведем в Мб, 480 000 байт / 1024 / 1024 = ~ 0,46 Мб.</span>
