Что нужно написать в начале, чтобы прокомпилировалась программа? K[1]:= 1; for i:= 2 to N do begin K[i]:= K[i-1]; if i mod 3 = 0 then K[i]:= K[i] + K[i div 3] end;
1) var a, b, c: integer; sr:real; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); sr:=(a+b+c)/3; writeln('Среднее арифметическое = ',sr); end.
Пример: a = 5 b = 2 c = 8 Среднее арифметическое = 5
2) var a, b, c, s : integer; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); s:=0; if a mod 2 = 0 then s:=s+a; if b mod 2 = 0 then s:=s+b; if c mod 2 = 0 then s:=s+c; writeln('Сумма четных чисел = ',s); end.
Пример: a = 8 b = 5 c = 2 Сумма четных чисел = 10
3) var a, b, c, max, min : integer; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); if a>b then max:=a else max:=b; if c>max then max:=c; if a<b then min:=a else min:=b; if c<min then min:=c; writeln('max = ',max,' min = ',min,' Среднее = ',(max+min)/2); end.
Пример: a = 5 b = 2 c = 8 max = 8 min = 2 Среднее = 5
Основные функции текстовых процессоров. Создание документов; редактирование документов: перемещение по тексту, вставками замена символов, удаление, перемещение, копирование, поиск и замена фрагментов текста, отмена команд; вставка фрагментов других документов или целых документов и т. Д.; Сохранение документов во внешней памяти (на дисках) и чтение из внешней памяти в оперативную; форматирование документов, т. Е. Выполнение преобразований, изменяющих форму (внешний вид) документа: оформление отдельных символов и абзацев, страниц, документа в целом - изменение длины строки, межстрочного расстояния, выравнивания текста, изменение шрифта, его размера, применение различного начертания шрифтов и т. Д.; Печать документов (или их некоторой части); автоматическое составление оглавлений и указателей в документе; создание и форматирование таблиц; внедрение в документ рисунков, формул и др.; Проверка пунктуации и орфографии
var a, b, c: integer; sr:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
sr:=(a+b+c)/3;
writeln('Среднее арифметическое = ',sr);
end.
Пример:
a = 5
b = 2
c = 8
Среднее арифметическое = 5
2)
var a, b, c, s : integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
s:=0;
if a mod 2 = 0 then s:=s+a;
if b mod 2 = 0 then s:=s+b;
if c mod 2 = 0 then s:=s+c;
writeln('Сумма четных чисел = ',s);
end.
Пример:
a = 8
b = 5
c = 2
Сумма четных чисел = 10
3)
var a, b, c, max, min : integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('max = ',max,' min = ',min,' Среднее = ',(max+min)/2);
end.
Пример:
a = 5
b = 2
c = 8
max = 8 min = 2 Среднее = 5