// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln(ReadlnString('Введите исходное число:')*2)
end.
<u><em>Тестовое решение</em></u>
Введите исходное число: 210345
210345210345
Значит, разница между CD и DVD в том, что последний изготовлен так, что на нем можно использовать лазер меньшей длины волны. Насколько я понял.
Первый записываемый слой двухслойного диска является полупрозрачным, обеспечивая при этом достаточную отражающую способность для чтения/записи первого слоя данных. В то же время он пропускает достаточное количество энергии лазера для чтения/записи второго слоя после изменения фокусировки лазера.Blu Ray – новый формат, способный хранить большие объемы информации и воспроизводить высококачественные изображения и видео. Благодаря использованию передовой технологии, Blue Ray состоит из более плотных слоев и читается более тонким лазером, чем обычные DVD.
print("Ноль в качестве знака операции завершит работу программы")
while True:
s = input("Знак (+,-,*,/): ")
if s == '0': break
if s in ('+','-','*','/'):
x = float(input("x="))
y = float(input("y="))
if s == '+':
print("%.2f" % (x+y))
elif s == '-':
print("%.2f" % (x-y))
elif s == '*':
print("%.2f" % (x*y))
elif s == '/':
if y != 0:
print("%.2f" % (x/y))
else:
print("Деление на ноль!")
else:
print("Неверный знак операции!")
Uses crt;
var a:integer;
begin
readln(a);
if (a mod 10)>(a div 100) then writeln('3>1');
if (a mod 10)<(a div 100) then writeln('1>3');
end.