AnselmaRain
07.07.2021 04:46

Знайти суму чисел, що кратні 3 на промужку від a до b
можете зделать в пайтоне

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Егорка2910
05.02.2023 11:15
Доступность (документа) — свойство документа, состоящее в том, что форма представления документа обеспечивает физическую возможность измерения заданных параметров этого представления документа (содержания, атрибутов, технологии) заданными средствами в заданных точках за конечное время. ценная и актуальная информация выражена непонятными словами, она может стать бесполезной. Информация становится понятной, если она выражена языком, на котором говорят те, кому предназначена эта информация. ПРИМЕРЫ: 1) Дошкольник спрашивает у старшеклассника: "Как светит лампочка?". В ответ слышит: "Существует две теории света – волновая и корпускулярная. Согласно первой …". 2) Объяснять материал на китайском языке.
0,0(0 оценок)
Ответ:
linagalkinaa
10.01.2021 04:01

program r;
const n=20;
var mas:array [0..n,0..n] of byte;
i,j,g,m,a,x1,y1,x2,y2,maxx,maxy,minx,miny:integer;
begin

readln (a);
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=0;

for g:=1 to a do
begin
Readln (x1,y1,x2,y2);
if x1>x2 then begin maxX:=x1;minX:=x2;end
else begin maxX:=x2; minX:=x1; end;
if y1>y2 then begin maxY:=y1;minY:=y2;end
else begin maxY:=y2; minY:=y1;end;

m:=0;
for i:=miny+1 to maxy do
for j:=minx+1 to maxx do
if mas[i,j]=0 then begin mas [i,j]:=1;m:=m+1;end;
for i:=1 to n do
begin
for j:=1 to n do
write (mas[i,j]);
writeln;
end;
writeln (m);

end;
end.

 

 

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота