<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var (a,b,c):=ReadReal3('Введите три числа через пробел:');
Writeln('Максимальное число ',Max(a,Max(b,c)))
end.
<u>№2</u>
begin
var (a,b):=ReadInteger2('Введите две оценки через пробел:');
if a+b>=9 then Writeln('Молодец!')
else Writeln('Подтянись!')
end.
Var s:string;
n,l,k,i:integer;
begin
write ('Введите строку: ');
readln(s);
n:=0;
l:=0;
k:=0;
for i:=1 to length(s) do
begin
n:=ord('?');
l:=ord(s[i]);
if n=l then k:=k+1;
end;
WRITELN;
if k=0 then writeln ('Знак вопроса ни разу не встретился в строке.')
else writeln ('Знак вопроса встретился ',k,' раз строке.');
end.
CD-ROM (англ. Compact Disc Read-Only Memory, читается: «сиди-ро́м») — разновидность компакт-дисков с записанными на них данными, доступными только для чтения (read-only memory — память «только для чтения»)
Позже были разработаны версии с возможностью как однократной записи (CD-R Compact Disc-Recordable) и многократной перезаписи (CD-RW Compact Disc-ReWritable, Перезаписываемый компакт-диск) информации на диск.
2.4 Ответ 4
Так как Х больше двух и не равен 3. Остаётся только 4.
В 2.5 я вопроса не понимаю