Чем у вас больше межстрочный интервал - тем больше будет интервал между абзацами (шире пустое место между абзацами).
yulyazhdan
06.04.2021
Используем формулу герона для нахождения площади треугольника по трем сторонам: s=√(p·(p-a)·(p-b)·(p- где p - полупериметр, равный p=(a+b+c)/2 программа: program z; var a1,b1,c1,a2,b2,c2,p1,p2,s1,s2: real; begin readln(a1,b1,c1); {ввод длин сторон первого треугольника} p1: =(a1+b1+c1)/2; {полупериметр первого треугольника} s1: =sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1)); {площадь первого треугольника} readln(a2,b2,c2); {ввод длин сторон второго треугольника} p2: =(a2+b2+c2)/2; {полупериметр второго треугольника} s2: =sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2)); {площадь второго треугольника} if s1=s2 {если площади треугольников равны} then writeln('yes') {то вывести положительный ответ} else writeln('no'); {иначе вывести отрицательный ответ} end.
kortikov77
06.04.2021
Var a,b,c,i,sum,cp: integer; begin sum: =0; cp: =0; randomize; writeln('посчитайте сложение: '); while i< 10 do begin a: =random(40)+10; b: =random(60)+10; sum: =a+b; write('сколько будет ',a,'+',b,'= '); read(c); if c=sum then begin cp: =cp+1; writeln('молодец! '); end else writeln('неправильно'); i: =i+1; end; writeln('всего правильных ответов ',cp); write('оценка: '); if (cp< =4) then write(' плохо (2)') else if (cp> =5) and (cp< =6) then write('удовлетворительно (3)') else if (cp> =7) and (cp< =8) then write('хорошо (4)') else if (cp> =9) then write('отлично! (5)'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Вчем состоит различие между междустрочными интервалами и интервалами между абзацами ?