Pascal

[PAREN_DEFO]

Используя цикл с постусловием написать программу, которая проверяет, является ли введённое пользователем целое число простым. (45)
(помогите пожлст)

[p51x]

Уже было...

[ROMA2PVT]

Program chislo;
Uses
  Crt;
Var
  i,Chisl:integer;
Begin
  ClrScr;
  write('Введите число: ');
  readln(Chisl);
  i:=1;
  repeat
    i := i+1;
  until Chisl mod i=0;
  if chisl=i
    then
      writeln ('Число => ',Chisl ,' является простым')
    else
      writeln ('Введённое число =>',Chisl , ' не является простым!!!!');
  readkey;
End.

[PAREN_DEFO]

Помогите написать к это программе БЛОК-СХЕМУ.

[ROMA2PVT]

Впереди ток блок описания переменных сделай.

[PAREN_DEFO]

1)Написать программу, которая вычисляет сколько раз введённое с клавиатуры число встречается в массиве.(БЛОК-СХЕМЫ)
2)Написать программу, которая вводит по строкам с клавиатуры двумерный массив и вычисляет среднее арифметическое его элементов.
(БЛОК-СХЕМЫ)

[ROMA2PVT]

берёшь учебник включаешь мозг.изучаешь и делаешь свои задания.алгорптм ясен?либо во фриланс.

[Chudo4258]

Написать программу, которая вычисляет сколько раз введённое с клавиатуры число встречается в массиве.(БЛОК-СХЕМЫ)
=50 руб.
Написать программу, которая вводит по строкам с клавиатуры двумерный массив и вычисляет среднее арифметическое его элементов.
(БЛОК-СХЕМЫ)
=50 руб.
__________________________________
=100 руб. и задачи с кодом и блоксхемами твои