Ответить вопросы по информатике! 1.какой группы периферийных устройств не существует, согласно классификации по выполняемым функциям? 1)устройства отображения информации; 2)печатающие устройства; 3)средства коммуникации; 4)все перечисленные группы существуют.2.какого блока не существует согласно классической архитектуры фон неймана? 1)алу; 2)уу3)увв4)пзу3.на какие компоненты делится внутренняя память компьютера? 1)видеопамять и кэш-память2)оперативную и постоянную3)cmos-ram и rom4)временную и постоянную4.как называется участок памяти компьютера для хранения параметров конфигурации, содержимое которого не изменятся при включении электропитания компьютера? 1)кэш-2)cmos-ram3)rom4)ram5.что не входит в 3 обязательные части каждой ос? 1)командный интерпретатор2) интерфейсы3)утилиты4)ядро
Ответы
Точно должно работать для pascalabc.net (версия 3.2, сборка 1341). program task; var n,i,kol,sum: integer; //по-хорошему, не integer. потому что мы работаем с натуральными числами, а не отрицательными begin read(n); for i: =1 to n do begin if (i mod 15)=0 then kol: =kol+1; //15 - это нок(3,5) end; while (n< > 0) do begin sum: =sum+n mod 10; n: =n div 10; end; writeln('количество чисел, делящихся и на 3, и на 5, равно ',kol); writeln('сумма цифр числа n равна', sum); end. пиши, если что-то не работает или не понятно : )
// pascalabc.net 3.2, сборка 1417 от 28.03.2017// внимание! если программа не работает, обновите версию! function sumd(k: integer): integer; begin result: =0; while k> 0 do (result,k): =(result+k mod 10,k div 10)end; function good(k,s: integer): boolean; begin var p: =1; while k> 0 do (p,k): =(p*(k mod 10),k div 10); result: =p=send; begin var n: =readinteger('n='); var s: =sumd(n); range(1,n-1).where(n-> good(n,end. пример n= 44 8 18 24 42
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Вкакой системе счисления выполнено сложение: 356 х+243 х=632 х 1)7; 2)8; 3)9; 4)10
Автор: strannaya2018
1. 9 букв 3.9 букв 4. 3 буквы 5.4 буквы
Автор: proh-dorohova5244