девочки написали контрольную работу по математике на 3 4 и 5 .маша сказала ,что она написала лучше оли но не на 5 оля говорила ч
то написала не хуже всех , а катя утверждает что она писала на 4 .как написали девочки контрольную работу по математике ,если одна девочка в своём утверждении была не права?
{ЗадачаСоздайте целочисленный массив из 20 элементов с помощью генератора случайных чисел с элементами от 0 до 15 и выведите его на экран. Подсчитайте и выведите на экран количество не четных элементов}constb = 20;vara : array [1..b] of integer;i: integer; beginrandomize; //подключаем генератор случайных чисел for i:=1 to b do a[i]:=random(15); //генерируем массив из случайных чисел writeln('вывод массива') ;for i:=1 to b do write(a[i],' '); //выводим массивwriteln; writeln('вывод нечетных чисел из массива'); for i:=1 to b do if (a[i] mod 2 =1) then write(a[i], ' ')//выводим нечетные числ из массиваend.
Решение задачи показано в таблице (файл прилагается). <span> В
этой таблице в каждой ячейке может быть только одно имя, а в каждом столбце и в
каждой строке имена не должны повторяться. Исходные данные представлены в
первой таблице. Заполнение пустых ячеек проще всего начать с ячейки (2,июль): в
ней не могут быть имена Коля, Ваня и Сережа, значит, может быть только Петя.
Рассуждая аналогичным образом, заполняем таблицу в порядке, указанном во второй
таблице. Ответ: май</span>
а) const n = 9; var a : array [0..n] of integer; b,c,i1 : integer; r : boolean := false; begin readln (b); While b > 0 do begin c := b mod 10; b := b div 10; a[c] := a[c] +1; end;
for i := 0 to n do if a[i] > 1 then r :=true;
if r then writeln ('да') else writeln ('нет');<span> end.
б) var l,i : integer; s : string; r : boolean := true; begin readln (s); l := Length (s);
for i := 1 to (l div 2) do if s[i] <> s[l-i+1] then r := false;
if r then writeln ('да') else writeln ('нет');<span> end.</span></span>