4. Ниже в табличной форме представлен фрагмент базы данных «Продажа канцелярских товаров»: Наименование - id1827767620220703 от rudaniladanilov 03.07.2022 20:10

Question

Информатика: 4. Ниже в табличной форме представлен фрагмент базы данных «Продажа канцелярских товаров»: Наименование | Цена | Продано Карандаш 5 60 Линейка 18 7 Папка 20 32 Ручка 25 40 Тетрадь 15 500 Сколько записей в данном фрагменте удовлетворяет условию «ЦЕНА-20 или ПРОДАНО-50»? А) 1 запись б) 2 записи в) 3 записи I г) 4 записи

rudaniladanilov · Accepted Answer

//PascalABC.NET 3.2 сборка 1318

Uses
GraphABC;

Var
h:integer;
begin
h:=40;
line(window.Width-300,window.Height,window.Width-300,0);
floodfill(window.Width-20,20,clGray);
rectangle(window.Width-200,100,window.Width-100,300);
floodfill(window.Width-150,140,clGold);
while h<>window.Height-40 do
begin
circle(window.Width div 2,h-40,10);
floodfill(window.Width div 2,h-40,clGreen);
circle(window.Width div 2,h,30);
floodfill(window.Width div 2,h,clRed);
rectangle(0,0,window.Width div 2+40,window.Height);
floodfill(window.Width div 2+40,window.Height,clWhite);
inc(h);
end;
circle(window.Width div 2,h-40,10);
floodfill(window.Width div 2,h-40,clGreen);
circle(window.Width div 2,h,30);
floodfill(window.Width div 2,h,clRed);
end.

MOGZ ответил