Var
x,i,y:integer;
begin
for i:=1 to 1000 do
begin
x:= i mod 7;
if x=0 then
begin
y:=y+1;
writeln (i);//строка выводит все числа кратные семи. она подлежит удалению
end;
end;
writeln (y);
end.
Технолог,тополог-а вообще их много.
имеет значение какой язык, но обычно условие на выборку идет после слова WHERE
Foreach wares
where wares.wares-name matches "*картошка*":
IntegerArray.Where{int i=> return i>0}
Я думаю, что это может быть слово "Род"