Program z1;
var (x, y):real;
begin
real (x; y);
if (y> 0, x> 0) then write('1 chetvert') and (y> 0, y <0) then write ('2 chetvert') and (y<0, x <0) then write ('3 chetvert') and (y <0, x> 0) then write ('4 chetvert');
end.
вместо слова четверть можешь ничего не ставить но цифру оставляешь.дай 40 пкт;)
Var a,b:real;
begin
read(a,b);
swap(a,b);
write(a,b);
end.
CD(700МБ) имеет меньше объема хранимой информации, чем DVD(~4ГБ) (за счет уменьшение длины волны лазера, к-й используют при записи)
DVD и CD имеют одинаковый внешний вид, способ записи
Скорость у обоих варьирует, но в среднем DVD превосходит по скорости записи CD в 8-10 раз
960:30=32 бита
32 бита-мощность Алфавита
var
s1, s2: string;
i: integer;
begin
s2:= ''; //Присваиваем строке начальное пустое значение
writeln('Введите слово s1');
readln(s1);
for i:= 1 to length(s1) do //length(s1) - длина строки s1
if i mod 2 = 0 then s2:= s2 + s1[i];
writeln('Полученное слово: ', s2);
end.