Uses GraphABC;
begin
Pen.Color := clblue;
brush.Color :=clRed;
DrawRectangle(100,200,400,400);
fillRect(100,200,400,400);
moveto(90,200);
lineto(100,150);
lineto(400,150);
lineto(410,200);
lineto(90,200);
FloodFill(100,180,clblue);
brush.Color := clCyan;
fillRect(150,250,200,300);
fillRect(250,250,300,300);
<span>end.</span>
Родовое понятие-знак, а видовое это-буква,цифра,дорожный знак,знак препинания,знак арифметического действия и иероглиф
Если она днем поднимается на 3 дм, а ночью опускается на 2 дм, то расстояние, которое она проходит за сутки равно 3 дм - 2 дм = 1 дм
1 метр = 10 дм
Ответ: 10 суток.
100*40=4000
Т.к. 1 символ весит 1 байт, информационный объем книги равен 4000
4000\1024=3,90кб
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadArrInteger(20);
var b:=a.Where(x->x in [10..99]).Where(x->x.IsEven);
if b.Count>0 then Writeln(b.Min)
else Writeln('Не найдено');
end.
<u><em>Тестовое решение:</em></u>
7497 9647 3684 848 6349 37 1281 3739 465 7784 16 406 6936 621 4960 98 1894 3825 3369 6566
16