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.
Svetlana ALLA
02.06.2022
1-последовательность команд которую выполняет компьютер при обработке данных(программа) 2-программа или данные имеющие имя и хранящиеся в долговременной памяти(файл) 3-название системы воздушного охлаждения(кулер) 4-сложная многослойная плата являющаяся основой построения вычислительной системы(материнская плата) 5-электронные и механические части вычислительного устройства(аппаратное обеспечение) 6-программа с которой пользователь решает свои прикладные (приложение) 7-устройство памяти(жесткий диск) 8-отдельное устройство пк выполняющее графический рендеринг(графический интерфейс) 9-характеристика скорости выполнения определенных функций на пк(производительность) 10-доступные пользователю папки и файлы на локальном компьютере и в компьютерных сетях(информационное пространство)