Их большое количество. Телефон например, компьютер, электронная книга, карта памяти.
Var
i, sum: integer;
begin
sum := 0;
i := 5;
repeat
sum := sum + i * i;
i := i + 1;
until(i > 10);
write(sum);
end.
Var
a: array of integer;
i, n: integer;
begin
readln(n);
setlength(a, n);
for i := 0 to n - 1 do
read(a[i]);
for i := 0 to n - 1 do
begin
if a[i] < 0 then a[i] := 0;
write(a[i], ' ');
end;
end.
1. необходимо знать таблицы истинности операций эквивалентности, импликации, логического умножения.
2. Решение строится из соображения, что лог. функция, состоящая из трёх лог. выражений, объединённых операцией лог. умножения, равна 1, когда каждое из лог. выражений равно1.