Const
MAX = 100;
var
A: array [1 .. MAX, 1 .. MAX] of integer;
i, j, N, M: byte;
min: integer;
begin
randomize;
write(' Введите N(макс. ', MAX, ') = ');
readln(N);
write(' Введите M(макс. ', MAX, ') = ');
readln(M);
writeln(' Исходная матрица: ');
for i := 1 to N do
begin
for j := 1 to M do
begin
A[i, j] := random(100) - 50;
write(A[i, j]:6);
end;
writeln;
end;
for i := 1 to N do
begin
min := A[i, 1];
if i mod 2 = 0 then
begin
for j := 1 to M do
if A[i, j] < min then
min := A[i, j];
writeln(' Минимальный элемент ', i, ' строки = ', min);
end;
end;
end.
1)
program perviynomer;
var
a,b:integer;
begin
write ('Введите 1-ое число: ');
ReadLn(a);
write ('Введите 2-ое число: ');
ReadLn(b);
if a>b then
writeln('Задача решена ',a+b)
else
writeln('Задача решена ',a*b);
readln;
end.
2)
program vtoraya;
var
a:integer;
begin
write('Введите число: ');
ReadLn(a);
if (a>=-5) and (a<=3) then writeln('Число ', a,' лежит в данном промежутке') else
WriteLn('Число ', a,' не лежит в данном промежутке');
readln;
end.
3)
program tretya;
Var
X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if X>0 then
if Y>0 then Write('Первая четверть')
else Write('Вторая четверть')
else
if Y<0 then Write('Третья четверть')
else Write('Четвёртая четверть')
End.
5)
program chetvertaya;
uses crt;
var
a,b,c:real;
begin
Write('Введите 1-ое число: ');
readln(a);
write('Введите 2-ое число: ');
readln(b);
Write('Введите 3-ие число: ');
readln(c);
if a > b then
if b > c then writeln('Сумма наибольших: ',a+b)
else writeln('Сумма наибольших: ',a+c)
else if a > c then writeln('Сумма наибольших: ',a+b)
else writeln('Сумма наибольших: ',b+c);
readln;
end.
Рассмотрим возможные варианты А = 0 В = 0, тогда на выходе 1-й схемы И будет 0, на входе 2-й схемы 1 А=0 и В=0, т.к. входыобъединены. На выходе схемы 2-й схемы И будет 0. Сигнал 0 поступает на вход схемы НЕ. На выходе схемы НЕ сигнал равен 1А В F0 0 1 0 1 11 0 11 1 0
Решил)
Easy
var
s:string;
c:integer;
begin
readln(s);
while pos(' ',s)<>0 do
begin
c:=c+1;
delete(s,pos(' ',s),1);
end;
writeln((c+1)*50,' Tenge');
<span>end.</span>
Ну если a=b=c=d,то это ромб.