Разработать схему алгоритма, который запрашивает ввод вещественного числа в переменную с умножает это число на 2 и выводт результат на экран отладить алгоритм и проверить правильность его работы на числах 2.5, -7.33, 0, 782.234

program dl9_aniasss;

var c: real;

begin

writeln ('vvedit c');

readln (c);

c: =c*2;

writeln (c,'*2=',c);

readln

end. 

[1]

1) begin. - точка ставится только в конце программы совместно с оператором end

2) write('Введите х: ); - строковый текст обязательно начинается с ' и обязательно заканчивается ', - в данном случае нет ' в конце

3) readln(x) - символ ; обязателен в конце оператора

4) writeln(Это четное число') - ошибка с '

5) else writeln('Это нечетное число); - ошибка с '

[2]

1) var x: integer - не указана ; в конце оператора

2) if (x≥10) and (x <= 100) then - нет такого условного оператора ≥, есть >=

3) else writeln('Не двузначное число') - не указана ; в конце оператора

4) end - необходима точка в конце программы

[3]

4, 7, 10, 11

[4]

var x: integer;

begin

ReadLn(x);

if x mod 5 = 0 then WriteLn('Число ', x, ' является кратным 5')

else WriteLn('Число ', x, ' не является кратным 5')

end.

[5]

var x: integer;

begin

ReadLn(x);

case x of

1: WriteLn('В понедельник 5 уроков');

2: WriteLn('Во вторник 6 уроков');

3: WriteLn('В среду 7 уроков');

4: WriteLn('В четверг 6 уроков');

else WriteLn('В данный день нет уроков');

end;

end.

Выводит массив из рандомных 20 чисел между -50 и 50допустим0 1 -2 1 2 3 5 4 5 8 9 10 14 -14 8 -11 10 45 6 1  затем выводит макс. кол-во похожих 0  1  -2  1  2 3 5 4 5 8 9 10 14 -14 8 -11 10 45 6  13  и теперь сумму четных элементов 0  1  -2  1  2  3  5  4  5  8  9  10  14  -14  8  -11  10  45  6  1 1+1+3+4+8+10-14-11+45+1=48 var a: array[1..20] of integer; i,j,k,l,s: integer; begin for i: =1 to 20 do begin randomize; a[i]: =random(101)-50; write(a[i],' '); end; k: =0; l: =0; for i: =1 to 20 do begin if l k: =0; for j: =1 to 20 doif a[i]=a[j] then k: =k+1; end; writeln; writeln(l); for i: =1 to 20 doif i mod 2 = 0 then s: =s+a[i]; writeln(s); end.