const
n = 6;
var
i, j, k: integer;
a: array [1..6, 1..6] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if (i = j) or (j = 1) or (i = 1) or (i = 6) or (j = 6) then
a[i, j] := 1
else
a[i, j] := 0;
write(a[i, j]:3);
end;
writeln();
end;
end.
Очевидно выражение такое: y = cos(2x)+sin(x/4)
Получим линейный алгоритм:
var x,y:real;
begin
writeln('Введите Х');
readln(x);
y:=cos(2*x)+sin(x/4);
writeln(y);
end.
<span>A = (5 < 10) = true
B = (2 = 2) = true
С = (4 < 2) = false
</span><span>(A and B) or C ↔ (A or C) and (A or not B) </span>⇒
(true and true) or false ↔ (true or false) and (true or not true) ⇒
true or false ↔ true and true ⇒
true ↔ true ⇒
true
var a:string;
begin
Writeln('В каком году началась Великая Отечественная война?');
Readln(c);
if c = '1945' then Writeln ('Правильно!')
else Writeln('Вы ошиблись, Великая Отечественная война началась в 1945 году');
end.
//Pascal ABC.NET v3.0 сборка 1111
var
a:integer;
begin
a:=0;
while a<>20 do
begin;
a:=a+2;
write(a:4);
end;
<span>end.</span>