написать програму которая проверяет является ли целое число введенное пользователем- простым. ЭТО ТУРБО ПАСКАЛЬ, ЦИКЛ FOR<ПЛИЗ ОЧЕНЬ НААДО*))))
5-9 класс
|
Program SimpleNumber;
Uses Crt;
var i,f,n:integer;
begin
write('Введите число:');
readln(n);
for i:=2 to trunc(sqrt(n)) do
if (n mod i)=0 then f:=1;
if (f=0) then write('Число Простое')
else writeln('Число не является простым');
readkey;
end.
program qq;
var a,b:integer;
begin
readln (b);
for a:=b div 10 then write("простое");
end;
иначе write ("не простое");
end;
write(а);
end.
я не уверен, что программа будет работать правильно(
Другие вопросы из категории
Читайте также
Программа Паскаль
Цикл с пост условием
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
клавиатуры строка шестнадцатеричным числом. В Паскале.
предыдущих. Получаем, что, например, шестое число равно 8, а десятое - 55.
Требуется написать программу, которая определяет, является ли заданное число числом Фибоначчи.
Пример ввода:567.
Пример вывода:сумма цифр числа 567-четное число