Определить значение переменной у после выполнения следующего фрагмента программы: 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 чисел сложить.
1. Военное дело, например, системы противоракетной обороны, космические системы. 2. Моделирование физических явлений и исследование построенных моделей с компьютеров. 3. Решение задач метеопрогноза. 4. Системы автоматического проектирования, обеспечивающие поддержку работы инженера-конструктора, существенно повышающие производительность его труда и сокращающие сроки разработок. 5. Управление работой отдельных станков (станки с числовым программным управлением), роботы, робототехнические линии, цеха и заводы-автоматы. 6. Получение изображений внутренних частей непрозрачных тел, в том числе в медицине - компьютерная томография, и на производстве - контроль качества, не разрушающий изделий. 7. Системы массового обслуживания и информационно-справочные системы. Например, системы резервирования и продажи железнодорожных и авиабилетов. 8. Обслуживание крупных спортивных мероприятий - мировых и европейских чемпионатов, Олимпийских игр. 9. Базы данных правовой информации (быстрый доступ к нормативным актам, указам и постановлениям правительства, статьям Уголовного и других кодексов), криминалистические базы данных, хранящие сведения о преступниках и т. д. 10. Банковские и биржевые компьютерные системы. 11. Библиографические компьютерные системы. 12. Подготовка различных документов, отчетов и других печатных материалов, рекламное дело.
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.
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 чисел сложить.