Объяснение:
program Kvadratnoe;
var a,b,c,d,x,y1,y2: real;
begin
writeln(' Решение квадратного уравнения ');
write(' Введите а = ');
readln(a);
write(' Введите b = ');
readln(b);
write(' Введите c = ');
readln(c);
d:=SQR(b)-4*a*c; //находим дискриминант
writeln(' d = ',d);
//Проверка значения дискриминанта
if d=0 then
begin
x:=-b/2*a;
writeln(' Х = ',x);
end
else
if d>0 then
begin
y1:=(-b-SQRT(d))/2*a;
y2:=(-b+SQRT(d))/2*a;
writeln(' Х1 = ',y1,' X2 = ',y2);
end
else writeln(' Нет корней ');
end.
Здравствуйте!
Зовут меня Алексеева Ольга Вячеславовна, но друзья обычно называют меня Оленькой. У меня много хобби и пристрастий: я люблю заниматься вышивкой гладью и вязанием на спицах, люблю читать, преимущественно детективы. Моя любимая книга детективного жанра - "Приключения Шерлока Холмса" Сэра Артура Конан Дойля. Еще я получаю огромное удовольствие от просмотра документальных фильмов. Больше всего мне нравится исторический сериал "Великая". Помимо этого я питаю слабость к классической музыке. Я восхищаюсь и с наслаждением слушаю Шопена и симфонии Моцарта. А что касается стиля в одежде - то здесь я предпочитаю удобный стиль "Кэжуал".
за внимание!
var i,k,d,e,s:integer;
begin
k:=0;
for i:= 10 to 99 do
if i mod 2 = 1 then
begin
d:=i div 10;
e:=i mod 10;
s:=d+e;
if ((s mod 3) = 0) then
k:=k+1;
end;
writeln(k);
end.