Объясните среди заданных чисел a, b, c, d есть хотя бы два четных. var i, e, t, k: integer; s: string; begin for i: =0 to 3 do begin repeat write(chr(ord('a')+i), ': '); readln(s); val(s, t, e); if e< > 0 then writeln('это не целое число, повторите ввод'); until e=0; if t mod 2=0 then inc(k); end; writeln(k> =2); end.

i - счётчик количества чисел

e - вывод ошибки

t - введённое число (преобразованная строка)

k - счётчик количества чётных чисел

s - введённое число в виде строки

начало программыначинается цикл for i: =0 to 3 do всё что внутри него будет повторено 4 раза пока i не больше 3 (0, 1, 2, 3)начинается цикл repeat until e=0; если к концу выполнения команд, которые находятся внутри цикла переменная e будет равна нулю, то цикл закончится и не будет повторятся снова вывод write(chr(ord('a')+i),': '); функция ord преобразует символ (в данном случае символ "a" . алфавита) в кодировку unicode. (в unicode символы пронумерованы в алфавитном порядке. то есть +1 к коду означает сдвиг по алфавиту вправо на 1 позицию). затем к коду символа "a" прибавляется значение i. затем функция chr преобразует новый код в символ.ввод переменной sфункция val преобразует строку s в число и записывает в переменную t. если преобразование удалось, то переменная e равняется нулю, если нет, то переменная e больше нуля.условие - если e не равняется нулю, то вывести сообщение "это не целое число, повторите ввод"цикл со вводом числа не повторяется если e = 0условие - если t чётное, то функция inc прибавляет к переменной k единицу.вывод логического значения выражения k > = 2 (true если истина и false, если ложь)конец программы : )

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(30,0,100); a.println;   var s: =a.where(x-> x.iseven and (x mod 10< > 0));   if s.count> 0 then writeln(s.aggregate(biginteger(,y)-> x*y))   else writeln('нет элементов, удовлетворяющих условию') end. пример 68 6 20 51 68 38 45 92 74 95 85 12 46 75 88 31 80 35 38 42 98 50 34 76 35 65 18 73 58 10 147111268420451335057440768

1)            находим количество пикселей, используя для вычисления степени числа 2: n  = 512 · 256 = 29  · 28  = 217 2)            объём файла в  кбайтах  64 = 26 3)            объём файла в битах  26    · 213  = 219 4)            глубина кодирования (количество битов, выделяемых на 1 пиксель): 219  :   217  = 22  = 4 бита на пиксель 5)            максимальное возможное количество  цветов 24  = 16 6)            ответ:   16.