М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
tatblin
tatblin
03.09.2021 22:54 •  Информатика

2. компьютер вани имеет следующие характеристики: - тактовая частота – 1,7 ггц, - объём оперативной памяти – 256 мбайт. ваня хочет приобрести диски с компьютерными играми, на которых указаны следующие системные требования: диск 1. процессор с тактовой частотой 1,5 ггц, объём оп – 256 мбайт диск 2. процессор с тактовой частотой 2 ггц, объём оп – 256 мбайт диск 3. процессор с тактовой частотой 1,7 ггц, объём оп – 512 мбайт диск 4. процессор с тактовой частотой 1,3 ггц, объём оп – 128 мбайт. какие из указанных дисков ване не стоит приобретать и почему

👇
Ответ:
RANDOM328
RANDOM328
03.09.2021

Не стоит покупать 3 диск, так как объем оперативной памяти 2 раза больше доступного.

 

во 2 случае разница в тактовой частоте несущественна

4,6(33 оценок)
Открыть все ответы
Ответ:
ПНШосннс
ПНШосннс
03.09.2021
Твой код не проверял. Недавно кому-то делал на Delphi. Переделал на Pascal. 

Приложил картинкой, если запутаешься. Если что-то не так работает, я поправлю.

//Pascal
var
  a, b, c, d, x1, x2: real;
begin
  write('Введите a = '); readln(a);
  write('Введите b = '); readln(b);
  write('Введите c = '); readln(c);
  if ((a = 0) and (b = 0) and (c = 0)) then
    writeln('X любое')
  else
  if a <> 0 then
  begin
       d := sqr(b) - 4 * a * c;
       if (d > 0) then
       begin
            x1 := (-b+sqrt(d))/(2*a);
            x2 := (-b-sqrt(d))/(2*a);
            writeln('x1 = ', x1);
            writeln('x2 = ', x2);
       end
       else
       if d = 0 then
       begin
            x1:=-b/(2*a);
            x2:=x1;
            writeln('x1 = ', x1);
            //writeln('x2 = ', x2);
       end
       else
       if d < 0 then
          writeln('Корней нет.');
  end
  else
  if (a = 0) and (b = 0) then
    writeln('Решений нет.')
  else
  if (a = 0) then
  begin
    x1 := (-c)/b;
    writeln('x = ', x1);
  end;
end.

Кто разбирается в паскале? отредактируйте . к слову это квадратное уравнение вида ax^{2}+bx+c progra
4,5(36 оценок)
Ответ:
tomahvisucik16
tomahvisucik16
03.09.2021

ответ:1)194  2)110

Объяснение:

1) var s; k: integer;

begin

s:=5;

for k:=1 to 6 do  (цикл в котором к становится массивом и заполняется числами от 1 до 6 (1 2 3 4 5 6))

s:=s+9*k;  (1. 5+9*1=14   2. 14+9*2=32  3. 32+9*3=59  4. 59+9*4=95  5. 95+9*5=140  6. 140+9*6=194)

writeln(s);

end

2)var s; k: integer;

begin

s:=2;

for k:=6 to 14do  (цикл в котором к становится как бы счётчиком для действия ниже)

s:=s+12  (6]2+12=14  7]14+12=26  8]26+12=38  9]38+12=50  10]50+12=62  11]62+12=74  12]74+12=86   13]86+12=98  14]98+12=110)

writeln(s);

end

4,7(45 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ