uses crt; var a,a1,a2:integer; begin write('Введите двузначное число: '); readln(a); a1:=a div 10; a2:=a mod 10; writeln('Сумма цифр числа ',a,' равна ',a1+a2,' ,произведение равно ',a1*a2); end.
ClrScr; write('Введите двузначное число: '); readln(a); a1:=a div 10; a2:=a mod 10; writeln('Сумма цифр числа ',a,' равна ',a1+a2,' ,произведение равно ',a1*a2); end.
Это обычно либо flesh-накоаители либо DVD диски. В обоих случаях используется для хранения информации.DVD диски можно использовать только в DVD приводе, а флеш-накопители в любом usb-порту. Таким образом на этих накопителях можно записывать и считывать информацию.Если говорить об ограниченности информации, то у флеш-накопителей гораздо больше порог максимальной памяти,а у DVD дисков максимальная величина 4,7 Гб.в наше время чаще всего используется флеш-накопители потому что дискеты и dvd-диски устарели.
Лицензионное соглашение и ответственность ВНИМАТЕЛЬНО ПРОЧТИТЕ УСЛОВИЯ ДАННОГО СОГЛАШЕНИЯ ПРЕД ИСПОЛЬЗОВАНИЕМ ПРОГРАММЫ. ИСПОЛЬЗОВАНИЕ ЛЮБОЙ ЧАСТИ ДАННОГО ДИСТРИБУТИВА ОЗНАЧАЕТ ВАШЕ СОГЛАСИЕ С НИЖЕНАПИСАННЫМ.ЕСЛИ ВАС ЭТО НЕ УСТРАИВАЕТ, ТО НЕ УСТАНАВЛИВАЙТЕ ПРОГРАММУ. ЛИЦЕНЗИЯ "Light Alloy" является бесплатным, freeware-проприетарным программным продуктом. ОБЯЗАТЕЛЬСТВАЭТОТ ПРОДУКТ ПРЕДСТАВЛЕН "AS-IS" БЕЗ КАКИХ - ЛИБО ОБЯЗАТЕЛЬСТВ И ГАРАНТИЙ КАК ЯВНОГО, ТАК И НЕЯВНОГО ВИДА. АВТОР ЭТОГО МУЛЬТИМЕДИА ПЛЕЕРА НЕ МОЖЕТ БЫТЬ ПРИЗНАН ОТВЕТСТВЕННЫМ ЗА ЛЮБЫЕ ПОСЛЕДСТВИЯ, СВЯЗАННЫЕ С ИСПОЛЬЗОВАНИЕМ ДАННОГО ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ, В КАКОЙ БЫ ФОРМЕ ОНИ НЕ БЫЛИ.АВТОР НЕ ОТВЕЧАЕТ, НЕ ГАРАНТИРУЕТ, НЕ ДАЕТ НИКАКИХ ЗАКЛЮЧЕНИЙ ПО ВОПРОСАМ ТОЧНОСТИ, НАДЕЖНОСТИ,КАЧЕСТВА ИЛИ ДРУГИХ ХАРАКТЕРИСТИК ДАННОГО ПРОДУКТА.ПРИ ИСПОЛЬЗОВАНИИ ДАННОГО ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ ВЕСЬ РИСК ВЫ БЕРЕТЕ НА СЕБЯ. ЕСЛИ ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ПРИЧИНИЛО ВАМ УЩЕРБ, ТО АВТОР НЕ ПРИНИМАЕТ НИКАКОГО УЧАСТИЯ В ВОЗМЕЩЕНИИ СТОИМОСТИ ВАШИХ УБЫТКОВ И ЗАТРАТ. Перед установкой "Light Alloy" вы должны согласиться со всем выше написанным.
uses crt;
var a,a1,a2:integer;
begin
write('Введите двузначное число: ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
writeln('Сумма цифр числа ',a,' равна ',a1+a2,' ,произведение равно ',a1*a2);
end.