:практическая работа №3. ветвления уровень a. напишите программу, которая получает с клавиатуры два целых числа и находит наибольшее и наименьшее из них. пример: введите два числа: 1 5 наименьшее число 1 наибольшее число 5 уровень b. напишите программу, которая получает с клавиатуры четыре целых числа и находит наибольшее из них. пример: введите четыре числа: 1 2 5 3 наибольшее число 5 уровень c. напишите программу, которая получает с клавиатуры возрасты трёх человек (антона, бориса и виктора) и определяет, кто из них старше. пример: возраст антона: 15 возраст бориса: 17 возраст виктора: 16 ответ: борис старше всех. пример: возраст антона: 17 возраст бориса: 17 возраст виктора: 16 ответ: антон и борис старше виктора. на языке паскаль.

Program p1;
var a,b:integer;
begin
writeln ('Введите 2 числа');
readln (a,b);
if a=b then writeln ('Числа одинаковые')
else if a>b then
begin writeln ('Наибольшее число ',a);
writeln ('Наименьшее число ',b);
end
else begin writeln ('Наибольшее число ',b);
writeln ('Наиментшее число 10 ',a);
end;
end.

program p2;
var a,b,c,d:integer;
begin
writeln ('Введите 4 числа');
readln (a,b,c,d);
if a<b then a:=b;
if c<d then c:=d;
if a<c then a:=c;
writeln ('Наибольшее число ',a);
end.

program p3;
var a,b,v:integer;
begin
writeln ('Введите возрасты людей:');
write ('Антона - ');
readln (a);
write ('Бориса - ');
readln (b);
write ('Виктора - ');
readln (v);
if (a=b) and (a=v) then writeln ('Все люди одного возраста');
if (a=b) and (a>v) then writeln ('Антон и Борис старше Виктора');
if (a=b) and (a<v) then writeln ('Виктор старше всех')
else if (v>a) and (v>b) then writeln ('Виктор старше всех');
if (b=v) and (b>a) then writeln ('Борис и Виктор старше Антона');
if (b=v) and (b<a) then writeln ('Антон старше всех')
else if (a>v) and (a>b) then writeln ('Антон старше всех');
if (a=v) and (a>b) then writeln ('Антон и Виктор старше Бориса');
if (a=v) and (a<b) then writeln ('Борис старше всех')
else if (b>v) and (b>a) then writeln ('Борис старше всех');
end.

Звук:
44100 отсчетов в секунду. Значит за 16 секунд = 44100*16=705600 отсчетов. Каждый отсчет 2 байта. Значит всего байт 705600*2=1411200
Видео:
25 кадров в секунду и всего 16 секунд. Всего = 25*16=400 кадров.

Каждый пиксель 24 бита RGB = 3 байта.
Каждый кадр 1280х1024 пикселя. Всего пикселей в кадре = 1310720.
Размер одного кадра 1310720*3 = 3932160 байт.

Объём видео = 3932160 байт/кадр * 400 кадров = 1572864000 байт

Общий объём = видео + звук = 1572864000 + 1411200 = 1574275200 байт. Примерно 1.466 ГБайт.

Каким должен быть компьютер моей мечты?
мой компьютер должен быть с хорошей видеокартой, чтобы поддерживать все файлы,игры, анимации и тд. Также у него должна быть хорошая оперативная память,так как чем больше гигабайтов, тем больше можно хранить ценной информации на нем.Моим компьютером не должен никто пользоваться кроме меня самого потому,что так будет легче хранить свои секреты.Хорошая проводная мышка и клавиатура, благодаря которой я смогу сделать какую либо работу , а проводную потому,что во время работы, если кончится батарейка на беспроводной то придется вставлять новые и новые, что очень надоедает.
Мой компьютер должен стоять не в очень пыльном месте ,чтобы каждую неделю или день его не чистить.Всё оборудование, включая компьютерный стол должны быть комфортны для работы.
Примерно так должен выглядеть компьютер моей мечты. Ведь красота в компьютере не главное. Главное-функциональность!