<h2><u>7. </u></h2>
program raf105;
var
num,max: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
max:= -99999;
repeat
readln(num);
if num > max then max:= num;
until num = 0;
writeln('Вывод: ',max);
end.
<h2><u>8. </u></h2>
program raf105;
var
num,min: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
min:= 99999;
repeat
readln(num);
if (num < min) and (num <> 0) then min:= num;
until num = 0;
writeln('Вывод: ',min);
end.
<h2><u>9. </u></h2>
program raf105;
var
num,count,max: integer;
begin
write('Введите количество чисел: ');
readln(count);
writeln('Вводите числа по очереди');
max:= -99999;
for var i:=1 to count do
begin
readln(num);
if (num > max) and (num mod 5 = 0) and (num <> 0) then max:= num;
end;
if max <> -99999 then writeln('Вывод: ',max)
else writeln('Таких чисел нет.');
end.
<h2><u> </u></h2><h3>PascalABC</h3>
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
a b c d e f g h i j k l m n o p q r s t u v w x y z
1 2 3 4 5 6 7 8 9 0
Специальные знаки (через пробелы):
~ ! @ # $ % ^ & * ( ) – + _ = [ ] ; : ‘ “ , . / \ < > ? |
По закону Ома для участка цепи
<u>PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</u><u>Внимание! Если программа не работает, обновите версию!</u>begin
var U:=ReadReal('U=');
var (r1,r2):=ReadReal2('R1,R2=');
Writeln('I=',U/(r1+r2))
end.
<u>Пример</u>U= 12
R1,R2= 10 6.5
I=0.727272727272727
<span>Виды информации
Информация может существовать в различных видах:
текст, рисунки, чертежи, фотографии;световые или звуковые сигналы;радиоволны;электрические и нервные импульсы;магнитные записи;жесты и мимика;запахи и вкусовые ощущения;хромосомы, через которые передаются по наследству признаки и свойства организмов, и т. д.
</span>
Размер алфавита = 26+10 = 36 символов, ближайшая степень двойки, которая больше или равна 36 - 6 (2^6=64), значит, каждый символ кодируется 6 битами. 180*6=1080 бит.