Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа2 / Examples / logic
.pas var a: boolean;
i: integer;
y: integer;
begin
a := TRUE and FALSE;
if a then
write('true')
else
write('false');
writeln;
a := FALSE or FALSE;
if a then
write('true')
else
write('false');
writeln;
for y := 1 to 5 do begin
for i := 1 to 2 do begin
a := not a;
if a then
write('true')
else
write('false');
writeln;
end;
end;
end.
i: integer;
y: integer;
begin
a := TRUE and FALSE;
if a then
write('true')
else
write('false');
writeln;
a := FALSE or FALSE;
if a then
write('true')
else
write('false');
writeln;
for y := 1 to 5 do begin
for i := 1 to 2 do begin
a := not a;
if a then
write('true')
else
write('false');
writeln;
end;
end;
end.
Соседние файлы в папке Examples