НЕ (X < 6), следовательно, X >= 6
X нечетное
Между ними стоит "И", значит условия должны выполняться одновременно.
X >= 6 И X нечетное.
Наименьшее число будет 7.
Ответ: 7
Program zadanie;
Var a,b:integer;
Begin
Writeln('Введите год рождения');
Read(a);
Writeln('Введите текущий год');
Readln(b);
If b>a Then
begin
a:=(b-a)*365;
Writeln('Примерное число прожитых дней=',a);
end
Else If a>b Then Writeln('Не правильно указаны год рождения и текущий год')
Else
begin
a:=a*365;
Writeln('Примерное число прожитых дней=',a);
end;
End.
var i,a,n,k:longint;
var mas:array[1..100000000] of longint;
begin
k:=0;
writeln('Введите количество элементов массива');
readln(n);
writeln('Введите число A');
readln(a);
for i:=1 to n do begin writeln('Введите элемент массива'); readln(mas[i]); if mas[i]>a then k:=k+1; end;
writeln(k,' элементов массива больше числа',' ', a);
end.
Используется 256 символов потому что текстовая информация не пишется буквами.а кодируется в системе кодом минус ноль и ноль