Var n,S,S3:integer; Begin Write('n = '); ReadLn(n); For n:= 1 to n do Begin S:=S+n; if n mod 3 = 0 then S3:=S3+n; End; WriteLn('Сумма чисел [1..',n,'], кратных трём: ',S3); WriteLn('Сумма всех чисел [1..',n,']: ',S); End.
program cube; var a : real; begin writeln('Программа вычисляет объем куба и площадь '+ 'его боковой поверхности по длине ребра'); {I - ввод + ЗОД} repeat write('Введите длину ребра куба '); readln(a); if a<=0 then writeln('Ошибка! Длина ребра не может быть нулевой или отрицательной. '+ 'Повторите ввод.'); until a>0; {II, III - расчет и вывод} writeln('Длина ребра куба = ',a:8:3,' м'); writeln('Объем этого куба = ', (a*a*a):8:3,' м^3'); writeln('А площадь его боковой поверхности = ', (6*a*a):8:3,' м^2'); writeln('Нажмите [Enter] для завершения программы'); readln; end.
11) к системному 12) Операционная система – это набор программ, обеспечивающий организацию вычислительного процесса на ПК. 13)Основные задачи ОС: 1. Увеличение пропускной ПК за счет организации непрерывной обработки потока задач с автоматическим переходом от одной задачи к другой и эффективного распределения ресурсов ПК по нескольким задачам. 2. Уменьшение времени реакции системы на запросы пользователей и времени на формирование ответов пользователям от ПК. 3. Упрощение работы разработчиков программных средств и обслуживающего персонала за счет предоставления им значительного количества языков программирования и разнообразных сервисных программ. Операционные системы предназначены для выполнения следующих функций: 1. Управление данными. 2. Управление задачами. 3. Связь с пользователем.
n,S,S3:integer;
Begin
Write('n = ');
ReadLn(n);
For n:= 1 to n do
Begin
S:=S+n;
if n mod 3 = 0 then S3:=S3+n;
End;
WriteLn('Сумма чисел [1..',n,'], кратных трём: ',S3);
WriteLn('Сумма всех чисел [1..',n,']: ',S);
End.