Var a, b, c : integer;beginfor b:=15 to 95 doif b mod 3 = 0 thenbegina:=a+1;c:=c+a;end;writeln('Кол-во чисел = ',a);writeln('Сумма чисел = ',c);end.
Очень просто! Рисуешь ромбик ветвления, в нем пишешь вопрос:
x < 5 ?
На ветке ДА рисуешь прямоугольник, в нем пишешь формулу:
Z = x^3 + 6*x^2 + 1/(Abs(x) + 1)
На ветке НЕТ рисуешь второй ромбик, в нем вопрос:
x > 10 ?
На ветке ДА
рисуешь прямоугольник, в нем пишешь формулу:
Z = (8*x^2 + 4)/(7*x)
На ветке НЕТ
рисуешь прямоугольник, в нем пишешь формулу:
Z = Log(Abs(x))
Из всех трех прямоугольников выходят стрелки к параллелограмму
Вывод Z
Антивирус не может:
г) сжимать файлы
Var n,a,b:integer;
function sum(x,y:integer):integer;
var s,i:integer;
begin
s:=0;
for i:=x to y do s:=s+i*i;
sum:=s;
end;
begin
write('n = ');
readln(n);
writeln(n,'^2 + ',n+1,'^2 + ... + ',n+n,'^2 = ',sum(n,n+n));
write('a, b = ');
readln(a,b);
writeln(a,'^2 + ',a+1,'^2 + ... + ',b,'^2 = ',sum(a,b));
end.
Пример:
n = 5
5^2 + 6^2 + ... + 10^2 = 355
a, b = 5 10
5^2 + 6^2 + ... + 10^2 = 355