1. Описать одномерный массив, размерностью 50 элементов вещественного типа.

2. Записать на языке Паскаль: переменной С присвоить значение квадратный корень из С минус 75.

3. Записать на языке Паскаль: пока S больше N, повторять если A меньше N то S присвоить S-1 иначе S присвоить S+1.

4. Записать на языке Паскаль: вывести на экран значения переменных S, R, V, N.

5. Записать на языке Паскаль: ввести массив размерностью NN элементов.

6. Записать на языке Паскаль: найти произведение всех элементов массива размерностью 1530 элементов.

7. Записать на языке Паскаль оператор полного ветвления, где У - условие, К1 - команда, которая выполняется, если условие верно, К2 - команда, которая выполняется, если условие не верно.

8. Записать на языке Паскаль выражения для нахождения площади треугольника по формуле Герона: квадратный корень из p(p-a)(p-b)(p-c).

9. Записать на языке Паскаль цикл с параметром, где In - начальное значение счетчика, Ik - конечное значение счетчика.

10. В каком случае в программе ставиться точка с запятой: в конце программы; после оператора; перед указанием типа переменной; для разделения переменных в списке.

Показать ответ

Ответ:

xDanielDash

09.04.2023 19:04

Басқа тілде оқу

Download PDF

Бақылау

Өңдеу

Ақпараттық қауіпсіздік — мемлекеттік ақпараттық ресурстардың, сондай-ақ ақпарат саласында жеке адамның құқықтары мен қоғам мүдделері қорғалуының жай-күйі.

Ақпаратты қорғауӨңдеу

Ақпаратты қорғау — ақпараттық қауіпсіздікті қамтамасыз етуге бағытталған шаралар кешені. Тәжірибе жүзінде ақпаратты қорғау деп деректерді енгізу, сақтау, өңдеу және тасымалдау үшін қолданылатын ақпарат пен қорлардың тұтастығын, қол жеткізулік оңтайлығын және керек болса, жасырындылығын қолдауды түсінеді. Сонымен, ақпаратты қорғау - ақпараттың сыртқа кетуінің, оны ұрлаудың, жоғалтудың, рұқсатсыз жоюдың, өзгертудің, маңызына тимей түрлендірудің, рұқсатсыз көшірмесін жасаудың, бұғаттаудың алдын алу үшін жүргізілетін шаралар кешені

0,0(0 оценок)

Ответ:

АлексейGrigorjew

12.10.2022 07:16

uses crt; var s:string; c:char; m:set of char; n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then begin write(c); s:=s+c; end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do begin k:=0; for i:=1 to n do if s[i]=c then k:=k+1; if k>1 then m:=m+[c]; end; if m=[] then write('Нет букв, встречающихся более 1 раза') else for c:='a' to 'z' do if c in m then write(c) end.

0,0(0 оценок)

Популярные вопросы: Информатика