Напишите наименьшее целое число x, для которого истинно высказывание: НЕ (X ≤ 7) И (X > 8)?
Напишите наибольшее целое число x, для которого истинно высказывание: НЕ (X < 14) И (X <18).
Напишите наименьшее целое число x, для которого истинно высказывание: НЕ (X < 14) И не(X <=18).
Для какого из данных слов май, декабрь, июль истинно высказывание: (оканчивается на мягкий знак) И НЕ(количество букв чётное)?
1.Май
2.Декабрь
3.Июль
Для какого из приведённых чисел ложно высказывание: НЕ (число <10) ИЛИ НЕ (число чётное)?
1.10
2.11
3.13
4.8
Для какого из данных слов истинно высказывание: НЕ (есть шипящие) И НЕ (оканчивается на гласную)?Шипящие звуки — это [ж], [ш], [ч'], [щ'].
1.Любовь
2.Забота
3.Отвращения
4.Отчуждённость
Для какого из приведённых имён истинно высказывание:НЕ (Третья буква гласная) И (Последняя буква согласная)?
1.Иван
2.Ксения
3.Марина
4.Матвей
Для какого из данных слов истинно высказывание:НЕ (ударение на первый слог) И (количество букв чётное)?
1.корова
2.кошка
3.конь
4.козел
Для какой из приведённых последовательностей цветных бусин истинно высказывание:(Вторая бусина жёлтая) И НЕ(Четвёртая бусина зелёная) И НЕ(Последняя бусина красная) (К — красный, Ж — жёлтый, С — синий, З — зелёный)?
1.СЗККЖК
2.КЖЗСКС
3.СЖСЗКЗ
3.ЖЖКСЗК
Для какого из приведённых имён истинно высказывание: НЕ(Первая буква гласная) И (Количество букв < 6)?
1.Семен
2.Иван
3.Николай
4.Игорь
program raf105;
var i,j,del:integer;
begin
for i:=10 to 99 do
begin
del:=0;
for j:=1 to i do
begin
if (i mod j)=0
then del:= del+1;
end;
if del=3
then writeln(i);
end;
end.
2)program raf105;
var a,b,c:integer;
x:boolean;
begin
write('Введите число: ');
readln(a);
write('Введите искомую цифру: ');
readln(c);
while a<>0 do
begin
b:= a mod 10;
if x=false
then x:= b=c;
a:= (a-b) div 10;
end;
if x
then writeln('В ведённом числе есть искомая цифра')
else writeln('В ведённом числе нет искомой цифры');
end.
3)a) 2
b) 1
c) 0
d) 1
e) бесконечно
Язык программирования PascalABC
a: array[1..10] of integer;
m, i,s: integer;
begin
randomize;
for i := 1 to 10 do
begin
a[i] := random(+10) + 1;
if a[i] > m then m := a[i];
end;
for i := 1 to 10 do
begin
if a[i]=m then s:=s+1;
end;
writeln(s);
end.
2)var
a: array [1..20] of 2..5; //Массив оценок учеников
i: integer;
n: array [2..5] of 2..5; //Массив счетчиков оценок
begin
for i:= 2 to 5 do //Обнуляем счетчики оценок
n[i]:= 0;
for i:= 1 to 20 do //Вводим оценки учеников и считаем их
begin
writeln('Введите оценку ', i, ' ученика');
readln(a[i]);
if a[i] = 2 then n[2]:= n[2] + 1;
if a[i] = 3 then n[3]:= n[3] + 1;
if a[i] = 4 then n[4]:= n[4] + 1;
if a[i] = 5 then n[5]:= n[5] + 1;
end;
for i:= 2 to 5 do
writeln('Количество получивших ', i, ' за диктант равно: ', n[i]); {Выводим значения счетчиков}
end.
3) Program zada4a3;Var A: array[1..50] of integer;
i,k:integer;
begin
for i:= 1 to 50 do
a[i]:= random(51)+150;
k:=0;
for i:= 1 to 50 do
if a[i]>170 then k:=k+1;
writeln(k);
end.