Такой будет программа:
var
s, r, t, x, y: real;
begin
y:=1;
x := 5 + abs(y);
s := (x / 100000) * y * y * y * y;
r := (y + 1000) / sqrt(x);
t := 3 * x + y;
writeln('S= ', s);
writeln('R= ', r);
writeln('T= ', t);
if (s < r) and (r < t) then writeln('Наименьшее - S') else if (r < s) and (r < t) then writeln('Наименьшее - R') else writeln('Наименьшее - T');
end.
var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
write('Введите количество элементов '); readln(n);
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(21) - 10;
write(a[i], ' ');
end;
writeln;
writeln('Вывод массива в соответствии с условием: ');
for i := 1 to n do
begin
if i mod 4 = 0 then
write('нет ')
else
if i mod 2 = 0 then
write('да ')
else
write(a[i], ' ');
end;
end.
1) a x b = 1 при a=1 возможно (если b=1)
2) a x b = 1 при а=0 противоречиво, результат 0
3) a + b = 0 при a=1 противоречиво, результат 1
4) a + b = 1 при a=0 возможно (если b=1)
Компьютеры вокруг нас
Компьюторы везде! Она почти у каждого человека дома! Они появились где-то в 80-х! И также они выполняют и хорошую роботу! К примеру когда надо сделать Домашнее задание,можно зайти в интернет и посмотреть,Ну если не понятно,И так-же если скучно,можно зайти в интернет и посмотреть видео. Они очень классные. Но бывают из-за них проблемы,пожары,и также компьюторы портят здоровье! Будь осторожен! Компьютеры вокруг нас!
Вот я придумал сам (Ошибки исправишь)
