Турбо паскаль:
10-11 класс
|
for i:=2 to sqrt(n) do if (n mod i = 0) then prost:=0;
паскаль выдает ошибку 39 ( в выделеном месте
подскажите, пожалуйста как ее устранить
Возможно у вас что то не так с типами. i должен быть longint, а не real... n должен быть real (вещественный),однако вы используете операцию n mod i, поэтому я вам могу посоветовать использовать N тип longint,но заменить sqrt(n) на round(sqrt(n)) round - это округление
Другие вопросы из категории
Отформатировать исходный код программы. + Определить ограничения на задаваемые пользователем значения и не допустить ввода неверных щначений
С клавиатуры вводятся целые числа a, b и c. Вычислите значение
следующего выражения
где
Читайте также
Вычислить сумму элементов каждой строки, вводимого С КЛАВИАТУРЫ ДВУМЕРНОГО массива. Обязательно с клавиатуры. Напишите программу пожалуйста.
Составить программу на языке Турбо-Паскаль, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: Данные числа x, y являются координатами точки, лежащей в первой координатной четверти
1) Определить количество двухзначных чисел, сумма цифр которых равна числу N.
2) Составить таблицу для двух столбцов выражения y=x²+3. Ввод чисел через клавиатуру.
3) Составить программу вычисления суммы кубов чисел от 1 до 5.
4) Вычислить сумму части ряда, 1/3, 1/6, 1/9, 1/12....
5) Среди двухзначных чисел, найти те, сумма цифр которых делятся на 3.
6) Найти самую большую цифру:
а) в двухзначном числе
б) трехзначном числе.
uses crt;
var gd,gm,c,i,r,x,y,n:integer;
begin
clrscr;
randomize;
writeln('введите колличество окружностей->');
readln(n);
gd:=0;
for i:=1 to n do begin
r:=random(80);x:=random(600);y:=random(400);
c:=random(15);setcolor(c);
circle(x,y,r);
setfillstyler(1,c);floodfill(x,y,c);
end;
readkey;
closegraph;
end.