program z5;
var comp: integer;
igrok : integer;
begin
randomize;
comp:=random(100);
repeat
write ('Введите число'); read (igrok);
if igrok > comp then writeln ('Слишком много…')
else if igrok<comp then writeln ('Слишком мало…')
else writeln ('Вы угадали! ');
until igrok=comp;
end.
Это растение в народе ласково называют красавицей-невестой. Это связано с тем, что весной черемуха одевает праздничное белое одеяние и превращается в настоящее чудо.
Черемуха - это кустарник из семейства розоцветных. Ее ствол полностью покрыт корой темно-серого цвета, на котором встречаются ржаво-бурые пятна. Листья у черемухи обратнояйцевидной формы. Цветки хоть и небольшие, но очень пахучие. Они белые и собраны в очень красивую кисть.
Черемуха является санитаром леса. У цветков и листьев есть специальный аромат, поэтому и обладает фитонцидным свойством. Это и сделало дерево особенным, так как это наделило его способностью убивать насекомых и микробов. Дерево беспощадно даже для комаров и клещей.
Это растение в народе ласково называют красавицей-невестой. Это связано с тем, что весной черемуха одевает праздничное белое одеяние и превращается в настоящее чудо.
Черемуха - это кустарник из семейства розоцветных. Ее ствол полностью покрыт корой темно-серого цвета, на котором встречаются ржаво-бурые пятна. Листья у черемухи обратнояйцевидной формы. Цветки хоть и небольшие, но очень пахучие. Они белые и собраны в очень красивую кисть.
Черемуха является санитаром леса. У цветков и листьев есть специальный аромат, поэтому и обладает фитонцидным свойством. Это и сделало дерево особенным, так как это наделило его способностью убивать насекомых и микробов. Дерево беспощадно даже для комаров и клещей.
var comp: integer;
igrok : integer;
begin
randomize;
comp:=random(100);
repeat
write ('Введите число'); read (igrok);
if igrok > comp then writeln ('Слишком много…')
else if igrok<comp then writeln ('Слишком мало…')
else writeln ('Вы угадали! ');
until igrok=comp;
end.