<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
function ReadWhileSum(cond: integer->boolean): sequence of integer;
begin
var s := 0;
while True do
begin
var x := ReadInteger();
s += x;
if not cond(s) then break;
yield x;
end;
end;
begin
Println('Сред. арифм. =',ReadWhileSum(sum -> sum < 150)
.Where(t->t.IsEven).Average);
end.
Создание и изменение растровых графических изображений
Язык программирования - знаковая система, предназначенная для записи алгоритмов и компьютерных программ. Синтаксис языка программирования - правила, по которым структура программ описывается как набор символов. Попробую описать. Синтаксис языка программирования Pascal предполагает для определения остатка от деления функцию mod, причем делимое стоит прямо перед функцией, а делитель - после нее(к примеру, Y:=9mod4)
Несложно заметить, что по столбцам значения увеличиваются с каждой строкой на 11. Также несложно заметить, то по строке с каждым столбцом значение уменьшается на 10.
Многоточием отмечены еще три столбца.
Для каждой ячейки верна формула a[I,j]=11(I-1)-10(j-1) i=1..7, j=1..7
В какой группе перечислены расширения ТОЛЬКО ГРАФИЧЕСКИХ файлов?1) bmp, jpg, gif, tif, png2) bmp, jpg, gif, swf, png3) bmp, htm,
lissssa [50]
1)
т.к swf ,htm, flx это не формат видео графики