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

Определить значение переменной у после выполнения следующего фрагмента программы: y: =0; for i: =-100 to 100 do if i mod 10 =5 then y: =y+i; с решением,

👇
Ответ:
Program dsdasd;
var i,y: integer;
begin
y:=0;
For i:=-100 to 100 do
if i mod 10=5 then y:=y+i;
Writeln(y);
end.

у будет равен 500. Считается он так: из чисел -100,-99,-98...98,99,100 остаток 5 при делении на 10 получается у чисел:
 5, 1575,85,95, то есть нужно эти 10 чисел сложить.
4,7(73 оценок)
Открыть все ответы
Ответ:
bezin2000
bezin2000
16.09.2022
1. Военное дело, например, системы противоракетной обороны, космические системы.
2. Моделирование физических явлений и исследование построенных моделей с компьютеров.
3.  Решение задач метеопрогноза.
4.  Системы автоматического проектирования, обеспечивающие поддержку работы инженера-конструктора, существенно повышающие производительность его труда и сокращающие сроки разработок.
5. Управление работой отдельных станков (станки с числовым программным управлением), роботы, робототехнические линии, цеха и заводы-автоматы.
 6. Получение изображений внутренних частей непрозрачных тел, в том числе в медицине - компьютерная томография, и на производстве - контроль качества, не разрушающий изделий.
7. Системы массового обслуживания и информационно-справочные системы. Например, системы резервирования и продажи железнодорожных и авиабилетов.
8. Обслуживание крупных спортивных мероприятий - мировых и европейских чемпионатов, Олимпийских игр.
9. Базы данных правовой информации (быстрый доступ к нормативным актам, указам и постановлениям правительства, статьям Уголовного и других кодексов), криминалистические базы данных, хранящие сведения о преступниках и т. д.
10. Банковские и биржевые компьютерные системы.
11. Библиографические компьютерные системы.
12. Подготовка различных документов, отчетов и других печатных материалов, рекламное дело.
4,5(10 оценок)
Ответ:
Алиса547828
Алиса547828
16.09.2022
Var  a: array of integer;    
       i, n, x, digit: integer; 
       b1, b2: boolean;
begin  
  readln(n); 
  setlength(a, n); 
  for i := 0 to n - 1 do readln(a[i]); 
  b1 := true; 
  x := 1; 
  digit := x; 
  while b1 do   begin   
    if b2 then digit := x;   
    inc(x);   
    b2 := true;   
    for i := 0 to n - 1 do begin     
      if (abs(a[i]) < x) and (a[i] <> 0) then begin b1 := false;break; end     
      else if a[i] mod x <> 0 then begin b2 := false;break; end   
    end; 
  end; 
  write(digit);
end.
4,5(49 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ