Var
s,i: integer;
begin
s:=0;
for i:=0 to 50 do
if i mod 6 =0
then s:=s+i;
writeln ('S = ',s)
end.
-----------------------------
S = 216
исследователи в разлычных научных и прикладных областях;
художники;
конструкторы;
специалисты по компютерной верстке;
дизайнеры;
разработчики рекламной продукции;
создатели Web-страниц;
авторы мултимедиа презентаций;
медики;
модельеры тканей и одежды;
фоторафы;
специалисты в области теле- и видеомонтажа и др.
Ответ:
1. Моя улюблена страва - горохове пюре (Істинне)
2.Я живу в місті Київ (Істинне)
3.Мене звуть Олег (Хибне)
Объяснение: БГЫ
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.