Program zadanie;
Var a,b:integer;
Begin
Writeln('Введите год рождения');
Read(a);
Writeln('Введите текущий год');
Readln(b);
If b>a Then
begin
a:=(b-a)*365;
Writeln('Примерное число прожитых дней=',a);
end
Else If a>b Then Writeln('Не правильно указаны год рождения и текущий год')
Else
begin
a:=a*365;
Writeln('Примерное число прожитых дней=',a);
end;
End.
//////////////////////////////////////////
Ответ:
Память — устройство, предназначенное для хранения информации.
Все, что требуется от компьютерной памяти, — это сохранять один бит информации так, чтобы потом его можно было извлечь.
Память бывает внутренняя и внешняя. Внутренняя память находится внутри компьютера и предназначена для хранения программ и их данных в процессе работы ЭВМ. Внешняя память предназначена для долговременного и энергонезависимого хранения программ и данных.
Внутренняя память подразделяется на оперативную и постоянную.
Оперативная память (RAM, random-access memory) служит для хранения программ и данных, с которыми работает процессор в данный момент. На оперативную память накладываются жесткие ограничения по скорости чтения и записи информации. Современные типы оперативной памяти не могут сохранять свое содержимое после выключения питания компьютера.
Постоянная память (ROM, read-only memory) служит для хранения программ, которые должны быть доступны компьютеру сразу после включения, еще до загрузки операционной системы. В постоянной памяти хранится программа первоначального тестирования, BIOS (базовая система ввода-вывода) компьютера. На отдельных микросхемах ROM, размешенных на платах расширения (видеокартах, сетевых адаптерах), хранятся BIOS этих плат.
Program pr3;
var poroda:string;
age,holka:real;
n,i,k:integer;
begin
repeat
write ('Введите количесвто собак на выстовке: ');
readln (n);
until n>0;
k:=0;
for i:= 1 to n do
begin
writeln ('Введите по отдельности: породу, возраст и высоту холки очередной собаки: ');
readln (poroda);
readln (age);
readln (holka);
if (poroda='боксер') and (age>=2) and (age<=3) and (holka>=55) then k:=k+1;
end;
if k>0 then writeln('Число боксеров c нужным возрастом и холкой на выставке: ', k) else writeln ('Боксеров с нужными критриями навыставке не обнаружено');
end.
Программа:
1 П4 ИП4 С/П КИП4 ИП4 5 - x>=0 02 Сx С/П
