Стестом по информатике. заранее : ) № 2. определите значения логических переменных a, b, c, d, если: 1) a и (10< 100) - истинное высказывание; 2) b и (10< 100) - ложное высказывание; 3) c или (у прямоугольника все стороны равны) - истинное высказывание; 4) d или (у прямоугольника все стороны равны) - ложное высказывание. № 8. решите : а) четыре брата коля, володя, петя и юра – учатся в первом, втором, третьем и седьмом классах. информатику в школе, в которой учатся мальчики, начинают изучать с седьмого класса. петя учится только на «4» и «5», а младшие братья стараются брать с него пример. володя уже изучает информатику. юра решать младшему брату по . кто из братьев учится во втором классе? б) инопланетяне сообщили, что в их системе 3 планеты а, б, в и что они живут на второй планете. вдруг передатчик испортился и два сообщения: а – не третья, б – не вторая, - оказались ложными. на какой планете живут разумные существа?

👇

Ответ:

KOBPAHET

26.01.2021

1) А = И, В = Л, С = И, D = Л
2) Информатику начинают с 7 класса, а Володя ее уже изучает. Он в 7 классе.
У Пети 2 младших брата, очевидно, Коля и Юра, потому что Володя старший.
Значит, Петя в 3 классе, а Коля и Юра в 1 и 2 классах.
Но у Юры тоже есть младший брат. Очевидно, это Коля. Юра во 2, а Коля в 1.
3) А - не третья планета, Б - не вторая - это ложные сообщения.
Значит, А - третья, Б - вторая, а В - первая. Они живут на планете Б.

4,4(61 оценок)

Открыть все ответы

Ответ:

котик009

26.01.2021

У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer;
i: integer;
begin
ClrScr;
Randomize;
WriteLn ( ' Massiv I: ');
for i:=1 to n do
  begin
   A[i] := 1+random(n);
    Write (A[i]:4);
  end;
WriteLn; WriteLn ( ' Massiv II: ');
for i:=1 to n do
  begin
   if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];
   Write (A[i]:4);
end;
ReadLn;
end.
Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1

Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1

4,6(66 оценок)

Ответ:

tyon

26.01.2021

Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.

4,5(1 оценок)

Это интересно:

29.07.2022

Как легко и просто найти общий язык с застенчивым парнем, которого вы почти не знаете...

Компьютеры-и-электроника

19.03.2023

Как бесплатно создать сайт: подробный обзор лучших сервисов для начинающих...

Финансы-и-бизнес

23.11.2020

Как купить себе частный остров: преимущества и нюансы покупки...

Дом-и-сад

20.12.2022