Program n1;
var a,b,i: integer;
sum,k: real;
begin
sum:=0;
k:=0;
readln(a,b);
for i:=a to b do
begin
sum:=sum+i*i;
k:=k+1;
end;
writeln(sum/k:6:2);
end.
(если сумма цифр числа делится на 3, то число делится на 3 нацело)
var a, s: integer;
begin
s:=0;
writeln ('Введите число');
while a<> 0 do
begin
a:= a mod 10
S:=s+a;
end;
if S mod 3 = 0 then writeln ('делится') else
writeln ('не делится');
end.
Растровые редакторы работают с пикселями, а векторные с графическими примитивами: линиями, фигур и пр.
Растровыми редакторами являются "Adobe Photoshop" и "Paint".
Ответ: "Adobe Photoshop" и "Paint".
Химикалий. Других слов в словаре по этим пунктам - нет.