1) Ошибка "Нельзя преобразовать тип real к integer"
При исправлении
var
a, b: real;
begin
a := 26 mod 11;
b := 3;
b := 6 + a * b;
a := b / 3 * a;
writeln(a);
end.
выдает 24
2) 52
Файл - структура данных, распознаваемых ПК. Каталог - список файлов с указанием места хранения на винчестере.
Program abc;
uses crt;
var
a,b,c:integer;
begin
writeln ('Введите значение Первого числа (А)');
readln(a);
writeln ('Введите значение Второго числа (B)');
readln(b);
writeln ('Введите значение Третьего числа (C)');
readln(c);
If (a > b) and (b > c) then
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: True');
end
else
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: False');
end;
end.<span>
</span>
Зайти в Паинт и делать все по инструкции:з
TEMPERATURA[1]= -19
TEMPERATURA[2]= -19
TEMPERATURA[3]= -10
TEMPERATURA[4]= 0
TEMPERATURA[5]= 11
TEMPERATURA[6]= 15
TEMPERATURA[7]= 21
TEMPERATURA[8]=
22
TEMPERATURA[9]=12
TEMPERATURA[10]=6
TEMPERATURA[11]=-3
TEMPERATURA[12]=-10