// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a,b,c:real;
Writeln('Введите коэффициенты квадратного уравнения (a b c)');
Read(a,b,c);
if a=0 then begin
Writeln('а=0 делает уравнение линейным');
if b=0 then Writeln('Корней нет')
else Writeln('Один корень ')
end
else begin
var d:=b*b-4*a*c;
if d<0 then Writeln('Нет действительных корней')
else
if d=0 then Writeln('Один корень')
else Writeln('Два корня')
end
end.
Программа №4
Program str999;
Uses CRT;
Var
s: String;
Begin
Writeln('Введіте фразу');
read(s);
if (s='край озер') then
writeln ('Край озер лесов и рек');
if (s='Я учусь в школе') then
writeln ('Я учусь в 10-м классе')
end.
Ответ 7 стаканов.
подсчитал методом подбора.
первое взвешивание:2 стакана и 1 тарелка= 1 кувшин. если представить тарелку как 5 стаканов то 1 кувшин =7 стаканов (2+5)
второе взвешивание : 2 кувшина и стакан = 3 тарелки. по пред идущему взвешиванию 1 кувшин = 7 стаканов, значит 2 кувшина и стакан =15 стаканов(7*2+1).<== (на оной чаше весов)
(на другой чаше) 3 тарелки, если 1 тарелка = 5 стаканам, то 3 тарелки=15 стаканам (5*3). значит 15 стаканов(два кувшина и стакан)=15 стаканов(три тарелки)
значит по первому взвешиванию 1 кувшин=7 стаканов.
Пусть старший брат идет со скоростью 1, тогда младший:
1 * (100-10)% * (100+10)% = 1 * 0,9 * 1,1 = 0,99. Вывод:
Старший брат прийдет быстрее.