Сравни алгоритм с готовым заданием и найди ошибку в алгоритме. 1. Нарисовать прямоугольник; 2. Применить Сплошную заливку синим цветом; 3. Применить Инструмент «Градиент». не применена текстура нет закругления углов нарисована другая фигура нет заливки
1)var a,b,i:integer; begin readln(a,b); for i:= 1 to 100 do if (i mod a<>0) and (i mod b<>0) then write(i,' ') end. 2)var a,b,i,k:integer; begin readln(a,b); k:=0; for i:= a to b do if (i mod 7=0) xor (i mod 9=0) then k:=k+1; write(k) end.
3)var pol,i,otr,a:integer; begin otr:=0; pol:=0; for i:= 1 to 10 do begin readln(a); if a>0 then pol:=pol+1; if a<0 then otr:=otr+1 end; if pol>otr then write('Положительных больше'); if otr>pol then write('Отрицательных больше') end. 4) var i,a,b:integer; begin readln(a,b); for i:= a to b do if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ') end.
1624 год-считающие часы В.Шиккарда( первый механический калькулятор, умевший выполнять четыре арифметические действия) 1642 год-Паскалина Б.Паскаля 1820 год-калькулятор Ч.Томаса(Арифмометр Томаса, который мог складывать, вычитать, умножать и делить. В основном, он был основан на работе Лейбница 1939 год-Z1 К.Цузе( так и не заработала достаточно надёжно, из-за недостаточной точности выполнения составных частей.) 1940 год-Z2 К.Цузе(её планы и фотографии были уничтожены) 1943 год-Z3 К.Цузе(Она была построена на телефонных реле и работала вполне удовлетворительно. Тем самым, Z3 стала первым работающим компьютером, управляемым программой) 1945 год-ЭНИАК 1963 год-Colossus(«Колосс» стал первым полностью электронным вычислительным устройством, хотя на нём и нельзя было реализовать любую вычислимую функцию) 1965 год-Apple 2 2008 год-СКИФ МГУ (суперкомпьютер собранный на базе решений и оборудования американской фирмы Intel, проект был разработан в Белорусском Государственном Университете (26-е место в рейтинге Топ-500 2012).
begin
readln(a,b);
for i:= 1 to 100 do
if (i mod a<>0) and (i mod b<>0) then write(i,' ')
end.
2)var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:= a to b do
if (i mod 7=0) xor (i mod 9=0) then k:=k+1;
write(k)
end.
3)var pol,i,otr,a:integer;
begin
otr:=0;
pol:=0;
for i:= 1 to 10 do
begin
readln(a);
if a>0 then pol:=pol+1;
if a<0 then otr:=otr+1
end;
if pol>otr then write('Положительных больше');
if otr>pol then write('Отрицательных больше')
end.
4) var i,a,b:integer;
begin
readln(a,b);
for i:= a to b do
if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ')
end.