Var sum,i:integer;
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
<span>end.</span>
Program chastnoe;
var N, p, sh: integer;
m: real;
begin
write(‘N=’); readln (N);
p:= N div 1000000000;
sh:= (N div 10000) mod 10;
m:= p/sh;
writeln (‘частное=’,m);
end.
Самой популярной и удобной программой, на мой взгляд, является <span>Microsoft Office Word, но он является платным и требуется лицензия(не для русских :) )
Бесплатным аналогом и отцом данный программы является вшитый в Windows WordPad. У него намного меньше функций, но зато бесплатный.
Существует много программ для данной деятельности от разных ОС, но эти, на мой взгляд, самые практичные, как и вся линейка продуктов Microsoft. Еще удобны продукты компании Adobe, но удобство и цена уступают Microsoft-у.</span>
Ответ под номерам Б, я так считаю
VAR N,a,b,c:INTEGER;
begin
Readln(n);
a:=(n mod 100)div 10;
b:=(n mod 100)mod 10;
c:=n div 100;
writeln(b,a,c);<span>
end.</span>