Sos! ,, я не могу решить, нужно вот прям сейчас! решите в pascal : 1.среди чисел от 35 до 87 найти и напечатать те, которые при делении на 7 остаток 1, или 2, или 5. p.s: !
Для того чтобы... Школа: 1). Объяснить всё подробно и понятно в виде презинтации (в графическом виде) учителю или ученикам (друзьям) 2).Если будет всё понятно объяснить с схемы или рисунка (если это есть в презинтации) 3).Доказать что ты можешь и умеешь работать с презинтациями. 4).И конечно же для того чтобы получить хорошую отметку (оценку) Дома: 1).Для самообучения в домашних условиях (чтобы было всё тебе понятно для кого - либо задания) 2).Для творческих целей. 3).Для игр (рисовать или создавать фигуры) 4).Для показа презинтации родственникам. 5).Для получения уважения родственников. ОТВЕТ 101 %! ГАРАНТИРУЮ... УДАЧИ :)
var a, b, c: array[1..n] of integer; i, j, kb, kc, t: integer;
begin Randomize; Writeln('Исходный массив'); kb := 0; kc := 0; for i := 1 to n do begin a[i] := random(101) - 50; Write(a[i]:4); if a[i] < 0 then begin Inc(kb); b[kb] := a[i] end else begin Inc(kc); c[kc] := a[i] end end; Writeln; { теперь массив b содержит отрицательныые элементы, с - остальные } for i := 1 to kb - 1 do for j := 1 to kb - 1 do if b[j] > b[j + 1] then begin t := b[j]; b[j] := b[j + 1]; b[j + 1] := t end; { сливаем массивы b и c в массив а} i := 0; for j := 1 to kb do begin i := i + 1; a[i] := b[j] end; for j := 1 to kc do begin i := i + 1; a[i] := c[j] end; Writeln('Результирующий массив'); for i := 1 to n do Write(a[i]:4); Writeln end.
вар я:целое число;
начать
для I:=от 35 до 87 делать
если ( я мод 7=1) или (я мод 7=2) или ( я мод 7=5), то напишите (я)
конец.