StefanSalvatori
20.10.2022 22:57

1. Паскаль машинасын кім жасады, қай жылы ? , А) Блез Паскаль 1642 жылы
В) Джон Непер 1761 жылы
С ) Исаак Ньютон 1660 жылы
2. Арифмометрді кім құрастырды ?
А) Чебышев
В)Лейбенц
С ) Ада Лавлейс
3. Холерит машинасын кім құрастырды ?
А) Ада Лавлейс
В)Лейбенц
С ) Ада Лавлейс
3. Холерит машинасын кім құрастырды ?
А) Ада Лавлейс
В) Блез Паскаль
С ) Герман Холерит
4. Бірінші электронды – есептеуіш машина қалай аталған? Ол қай жылы жасалды?
А) ENIAC деп аталды, 1946 жылы
В) Паскаль машинасы деп,1642 жылы
С ) Холерит машинасы деп, 1880 жылы
перевод на русский.
1. Кто и в каком году построил машину на языке Паскаль?
А) Блез Паскаль в 1642 году
В) Джон Непер в 1761 году
В) Исаак Ньютон в 1660 году
2. Кто разработал арифмометр?
А) Чебышев
В) Лейбенц
В) Ада Лавлейс
3. Кто построил желчегонный аппарат?
А) Ада Лавлейс
В) Лейбенц
В) Ада Лавлейс
3. Кто построил желчегонный аппарат?
А) Ада Лавлейс
В) Блез Паскаль
В) Герман Холерит
4. Как назывался первый электронный компьютер? Он в каком году это было сделано
A) был переименован в ENIAC в 1946 г.
В) Машина Паскаля, 1642 г.
В) В 1880 году как холерная машина

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ехуотличница
02.03.2020 04:01
Program test;
uses utils;
var
  n,i,sum,time:longint;
  flag:boolean;
begin
    readln(n);
    if n<2 then flag:=false;{Единица - не простое число}
    if n=2 then flag:=true;{2 - простое}
    if (n>2) and (n mod 2 <> 0) then begin{ после двойки простые числа только нечетные}
      for i:=1 to n do begin{проверяем что бы было только 2 делителя}
        sum:=sum+1;
      end;
      if sum=2 then flag:=true;
    end
    else flag:=false;
    if flag then writeln('Число простое') else writeln('Число НЕ простое');
    time:=milliseconds;
    writeln('Времени затрачено ',time:10,' ms.');
end.
Все проверки сделаны для сокращения времени работы программы.
0,0(0 оценок)
Ответ:
KTTC28072003
28.11.2021 17:18
Program test;

var
  a:array[1..4,1..6] of integer;
  b:array[1..4] of integer;
  i,i1,max,n,sum:integer;
label m1;
begin
  write('Введите елементы массива: ');
  for i:=1 to 4 do begin
    for i1:=1 to 6 do begin
      write('a[',i,',',i1,'] = ');
      readln(a[i,i1]);
    end;
  end;
  for i:=1 to 4 do begin
    for i1:=1 to 6 do begin
      if i+i1 = 2 then max:=a[1,1]
      else if a[i,i1]>max then max:=a[i,i1] else max:=max;
    end;
  end;
   m1: 
 write('Введите число (не больше  ',max,') : ');
readln(n);
  if n<=max then begin
   for i:=1 to 4 do begin
    for i1:=1 to 6 do begin
      if a[i,i1]>n then sum:=sum+1;
    end;
      b[i]:=sum;
      writeln('b[',i,'] = ',b[i]);
      sum:=0;
  end;
  end
  else begin
    writeln('Число больше максимального значения массива, поробуйте снова');
    goto m1;
  end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота