Using System;
public class Test
{
public static void Main()
{
double a,b,c,D;
Console.WriteLine("программа для решения квадратного уравнения вида ax^2+bx+c=0");
Console.Write("введите a: a=");
a=double.Parse(Console.ReadLine());
Console.Write("введите b: b=");
b=double.Parse(Console.ReadLine());
Console.Write("введите c: c=");
c=double.Parse(Console.ReadLine());
Console.WriteLine("решаем уравнение:");
Console.WriteLine(a+"*x^2+("+b+")*x+("+c+")=0");
D=b*b-4*a*c;
Console.WriteLine("D="+b*b+"-"+"("+4*a*c+")="+D);
if (D<0){ Console.Write("D<0 => нет действительных корней");} else if (D>0)
{
Console.WriteLine("D>0 => уравнение имеет 2 действительных корня");
Console.WriteLine("x1="+(-b+Math.Sqrt(D))/(2*a));
Console.WriteLine("x2="+(-b-Math.Sqrt(D))/(2*a));
} else{
Console.WriteLine("D=0 => уравнение имеет 2 совпадающих корня");
Console.WriteLine("x1=x2="+(-b/(2*a)));
}
}
}
var s,k:integer;
Begin
read(k);
s:= k div 100 + k div 10 mod 10 + k mod 10;
writeln(s);
End.
Так как (i:=1) и (пока i<5) и (в цикле i увеличивается с шагом +1), то цикл осуществляется 4 раза (для i=1, 2, 3 и 4)
первоначальное s=1
начинаем цикл:
i=1......................s:=1+1*(1+1)......................s=3
i=2......................s:=3+2*(2+1)......................s=9
i=3......................s:=9+3*(3+1)......................s=21
i=4......................s:=21+4*(4+1)....................s=41
конец цикла
Итого s=41
№1
var vol, a, b, c: real;
beginwrite('Введите сторону а: ');
readln(a);
write('Введите сторону b: ');
readln(b);
write('Введите сторону c: ');
readln(c);
vol := a * b * c;
writeln('Объем прямоугольного параллелепипеда равен ', vol);
<span>end.
№2
const a = 3;
const h = 7;
var S: real;
begin
S := 1 / 2 * a * h;
writeln('Площадь треугольника равна ', S);
<span>end.
№3
var s: string;
begin
s := 'Чему равно 10 : 2?';
writeln(s);
readln();
<span>end.</span></span></span>