Напишите,пожалуйста,программу на Паскале,использую Repeat.

Коала04, 364 просмотра

-1

Напишите программу,которая проверяет,является число,введённое пользователем,простым.

Примечание:
Если нужен образец,пишите,напишу.Просто времени нет.Сама бы написала,но остался один день,а дел куча.

Примечание:
Program №1;
const k=5;
var
comp:integer;
igrok:integer;
n:integer;
begin
Randomise;
comp:=Random (9)+1;
writeln ('Игра Угадай число');
writeln ('Компьютер задумал число от 1 до 10');
writeln ('Угадай число за 5 попыток');
writeln ('Введите число с клавиатуры и нажмите Enter');
repeat
n:=n+1
readln (igrok);
until (n=k) or (comp=igrok);
if comp=igrok
then writeln ('Вы выиграли!');
else writeln ('Вы проиграли!')
компьютер задумал число;
comp
end.

Примечание:
Вот какие программы мы пишем.Возможны некоторые ошибки.На подобие такой и нужно.На английском тоже правильно,но сами понимаете..

Ответы:

Всегда пожалуйста!

program isProst;
var a,i,b:integer;
begin
write('Введите число: '); readln(a);
for i:=2 to a div 2 do begin
if a mod i = 0 then begin write('Число составное'); break; end;
if i = a div 2 then write('Число простое');
end;
end.

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.