Для какого из чисел истинно высказывание: не (первая цифра чётная) и (последняя цифра нечётная)? 1) 1234 2) 6843 3) 3561 4) 4562

3) 3561, если изложено верно

{сумма натуральных чисел из промежутка от 1 до 100, которые делятся на 17 и сумма цифр, которых не превышает 7. можно перебором} var i,s: integer; begin   s: =0;   for i: =1 to 100 do   if  (i mod 17=0) and (i div 10 + i mod 10< 7) then   s: =s+i;   writeln(s); end. {результат 51} { можно оптимизировать в цикле изменив  for i: =1 to 100 do на   for i: =17 to 100 do} {2 вариантө оптимальнее - перебираем только числа кратные 17] var i,s: integer; begin   s: =0; i: =17;   while i< =100 do   begin     if  (i div 10 + i mod 10< 7) then     s: =s+i;     i: =i+17;   end;   writeln(s); end.

Var {файл 1.txt необходимо создать } n,i,j,c1: integer; a: array[1..100] of integer; f: text; begin   {чтение данных с файла 1.txt}   assign(f,'1.txt'); reset(f);   i: =0;   while not eof(f) do   begin     i: =i+1;     read(f,a[i]);   end;   n: =i;   close(f); {сортировка}   for i: =1 to n-1 do   for j: =i+1 to n do       if a[i]> a[j] then               begin                 c1: =a[j];                 a[j]: =a[i];                 a[i]: =c1;               end;   {вывод в файл 2.txt отсортированного массива}   assign(f,'2.txt');   rewrite(f);   for i: =1 to n do     write(f,a[i]: 5);   close(f);   end.