1) 25
2) <span>Обработка Паскаль
3) </span>Обработочка строк в Паскаль
4) Паскаль
5) Оскал
6) 4
7) Обраб тка стр к в Паскаль
8) a:=дела? | b=Привет!
9) В Паскакль есть много функций (вообще любую фразу состоящую из 5 слов, символов отделенных пробелом)
10) SоооS
У меня получилось m=-4, k=10
Просто подставляй значения и проверяй условие, если условие верно то m будет=значению Д под этим номером.
1)Берем Д(1)=6 проверяем 6 меньше 2*6 ДА
m присваиваем значение Д(1),т.е 6
2)Берем Д(2)=-1 Сравниваем -1 меньше 2*6 ДА
<span>m присваиваем значение Д(2),т.е -1 и Т,Д до конца</span>
Program Natur;
Uses Crt;
Var a, Summa, n : integer;
Begin
Clrscr;
write('N=');
readln(N);
{Цикл с предусловием}
a:=2;
Summa:=0;
while a<=N do
begin Summa:= Summa + a; a := a + 1 end;
Writeln (' Результат первого суммирования:' , Summa) ;
{Цикл с постусловием}
а:=1;
Summa:=0;
repeat Summa:=Summa+ а; а:=а+1 until a>N;
Writeln
(' Результат второго суммирования:' , Summa) ;
{Цикл с параметром} Summa:=0;
for а := 2 to N do Summa : =Summa + a;
<span>Writeln (' Результат третьего суммирования:', Summa); End</span>
Пусть длина номера = 5
Мощность алфавита = 40
Тогда для записи 1 сивола понадобится 6 бит (2^6 > 40 < 2^5)
6 * 5 = 30 бит на 1 номер. Номер кодируется целым кол-во байт, следовательно 30/8=3.75, отсюда 4 байта отводится на 1 номер.
4*50= 200 байт.
Program Min5
var array A[1..5] of real
var i, k : integer
var min : real
BEGIN
for i := 1 to 5 do readln (A[i]); // Вводим массив
k := 1; min := A[1]; // Начальные значения мин. эл-та и его номера
for i := 2 to 5 do
begin
if A[i] < min then // Если элемент меньше минимального
begin
min := A[i]; // Устанавливаем новый минимальный элемент
k := i; // И запоминаем его номер
end;
end;
writeln ('A[', k, '] = ' min'); // Выводим минимум и его номер
END.