Поклонники четкой графики однозначно выбирают Intel Core i5 и i7. Последние модели этого производителя показали высокие параметры в самых «тяжелых» играх и прекрасно справляются с визуализацией любой картинки. Такие процессоры относятся к категории игровых.
Однако AMD не сдает позиции так просто. Не так давно появилось решение, которое отлично подходит для бюджетного игрового компьютера — шестиядерные чипсеты Ryzen 5. В итоге получилась недорогая и вполне производительная рабочая платформа. Хотя вердикт все же придерживается продукции Intel, которая признана лучшим решением для игрового компьютера.
type
firma = record
fam:string;
adres:string;
end;
var
mas:array[1..8] of firma;
i,k:integer;
str:string;
begin
mas[1].fam:='Кузин';
mas[2].fam:='Куравлев';
mas[3].fam:='Кудин';
mas[4].fam:='Кульков';
mas[5].fam:='Кубиков';
mas[6].fam:='Иванов';
mas[7].fam:='Петров';
mas[8].fam:='Сидоров';
mas[1].adres:='ул.Мира,7';
mas[2].adres:='ул.Маркса,6';
mas[3].adres:='ул.Комсомольская,17';
mas[4].adres:='ул.Ленина,5';
mas[5].adres:='ул.Центральная,18';
mas[6].adres:='ул.Клубная,26';
mas[7].adres:='ул.Чехова,2';
mas[8].adres:='ул.Амосова,68';
write('Введите фамилию сотрудника -> ');readln(str);
k:=0;
for i:=1 to 8 do
begin
if str=mas[i].fam then
begin
k:=k+1;
writeln('фамилия - ',mas[i].fam);
writeln('адрес - ',mas[i].adres);
end;
end;
if k=0 then writeln('такого сотрудника нет!');
readln;
end.
Объяснение:
Это ответ на задание 2
Qiwi +79172489972
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c:real;
Read(a,b,c); // не вводить одинаковых!
if a>b then
if a>c then // a > [b,c]
if b>c then Writeln('Среднее - второе число')
else Writeln('Среднее - третье число')
else Writeln('Среднее - первое число')
else
if b>c then // b > [a,c]
if a>c then Writeln('Среднее - первое число')
else Writeln('Среднее - третье число')
else Writeln('Среднее - второе число')
end.