Программа в паскале написать уменьшение положительного числа на 1 до тех пор,пока оно не станет отрицательным. как только число становится отрицательным,команда повторения заканчивает свою работу
Сходства-одинаковые размеры (диаметр 120 мм, толщина 1.6 мм) , тот же радужный вид. Принцип записи и чтения тоже аналогичный: лазерный луч отражается от металлизированной поверхности ("ямок" и "горок"), причем, отражение от любой поверхности кодирует ноль, а отражение от перехода между ямкой и горкой (при этом луч ослабляется за счет интерференции) - единицу На этом сходство заканчивается - дело в том, что в CD используется инфракрасный лазер (длина волны в воздухе 780 нм) . В DVD же применяется красный лазер (650/635 нм) . Меньшая длина волны позволяет плотнее размещать информацию на DVD-диске. Ёмкость DVD сильно превосходит обычный компакт-диск (640 Мб) и составляет 4.38 гигабайта (в смысле 2^30 байт) или 4.7 миллиарда байт, имеется в виду односторонний, однослойный DVD-диск.
1. Программа в одной из современных версий Паскаля:
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016 begin var s:=ReadlnString('Исходная строка:'); Writeln('Результат: ',s.MatchValues('[a-zA-ZА-Яа-яёЁ]').JoinIntoString('')); end.
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016 const legal=['A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё']; var s:string; i:integer; begin Write('Исходная строка: '); Readln(s); for i:=Length(s) downto 1 do if not(s[i] in legal) then Delete(s,i,1); Writeln('Результат: ',s); end.
Begin
Read(n);
while (n>=0) do
begin
n:=n-1;
end;
Writeln('Finished');
end.