Почему-то мой ответ удалили. Напишу подробнее. Если в чмсле первая цифра 4 и вторая цифра 3, то числа от 4300 до 4399 На паскле программа выглядит так var i, n: integer begin uses crt; for i:= 0 to 99 begin n = 4300 + i; write (n); end; writeln; end. Блок-схема совсем простая, нарисуй сама. 1) Начало (в овале) 2) i = 0 (в прямоугольнике) 3) n = 4300 + i (в прямоугольнике) 4) Вывод n (в параллелограмме) 5) Проверка i > 99 ? (в ромбе). Если нет, возврат на п. 3. Если да, вниз. 6) Вывод пустой строки (в параллелограмме) 7) Конец (в овале)
1) var a1, a2, b1, b2, c, i, n: integer; s: array [1..100] of integer;
begin read(n); for i := 1 to n do begin s[i] := random(100); if s[i] < 50 then begin a1 := a1 + s[i]; a2 := a2 + 1; end; if s[i] >= 50 then begin b1 := b1 + s[i]; b2 := b2 + 1; end;
end; writeln(a1 / a2:0:3, ' ', b1 / b2:0:3); end.
2) var i, n: integer; f: boolean; s: array [1..100] of integer;
begin read(n); for i := 1 to n do s[i] := random(5);
f := false; for i := 1 to n - 1 do f := f or (s[i] = s[i + 1]);
writeln(f); end.
3) var k, t, i, n: integer; s: array [1..100] of integer;
begin read(n); for i := 1 to n do s[i] := random(99); // Println(s);
k := n div 2; for i := 1 to k div 2 do begin t := s[i]; s[i] := s[k + 1 - i]; s[k + 1 - i] := t;
