INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
d = b * b - 4 * a * c
IF d < 0 THEN
PRINT "корней нет"
END
END IF
IF d > 0 THEN
PRINT "x1="; (-b - SQR(d)) / 2 / a
PRINT "x2="; (-b + SQR(d)) / 2 / a
ELSE PRINT "x="; (-b) / 2 / a
END IF
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>1)</em>
begin
var (a,b):=ReadInteger2('Введите границы диапазона:');
var Всего:=b-a+1; // количество целых чисел в диапазоне
var Четных,Нечетных:integer;
if a.IsOdd then begin Четных:=Всего div 2; Нечетных:=Всего-Четных end
else begin Нечетных:=Всего div 2; Четных:=Всего-Нечетных end; // четное a
Writeln('Нечетных- ',Нечетных,', четных- ',Четных)
end.
<u>Пример</u>
Введите границы диапазона: -4 4
Нечетных- 4, четных- 5
<em>2)</em>
begin
var (n,a,b):=ReadInteger3('Введите n,a,b:');
SeqRandom(n,a,b).Println
end.
<u>Пример</u>
Введите n,a,b: 15 -10 35
19 33 -10 4 5 -10 10 21 17 21 14 21 24 23 18
var
t : string := 'операция';
begin
writeln('до ', t);
delete(t, 8, 1);
delete(t, 6, 1);
delete(t, 3, 1);
delete(t, 1, 1);
insert('в', t , 4);
insert('ло', t , 6);
writeln('после ', t)
end.
Итак, алгоритм прост:
Площадь = а * б * с
<em>Периметр = а + б + с</em>
<em>Могу реализовать это же на паскале:</em>
<h3>
<em>var a,b,c,s,p:integer;</em></h3><h3>
<em>begin</em></h3><h3>
<em>read(a,b,c);</em></h3><h3>
<em>s:=a*b*c;</em></h3><h3>
<em>p:=a+b+c;</em></h3><h3>
<em>Write(s,' ',p);</em></h3><h3>
<em>end.</em></h3>
Если мой ответ вам помог - выберите его лучшим :)
Заранее спасибо