ПОМОГИТЕ ПОЖАЛУЙСТАНапишите программку которая считает из файла input.txt целое число,
ПОМОГИТЕ ПОЖАЛУЙСТА
Напишите программку которая считает из файла input.txt целое число, определяет является ли оно обычным и записать итог в файл output.txt
1 ответ
Ромик Косинский
Var f1,f2:text; a,i,k:integer;
begin
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
readln(f1,a);
k:=0;
for i:=2 to round(sqrt(a)) do
if a mod i=0 then k:=k+1;
if k=0 then writeln(f2,a,' - обычное число')
else writeln(f2,a,' - составное число');
close(f1); close(f2);
end.
Пример:
Файл input.txt:
43
Файл output.txt:
43 - обычное число
begin
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
readln(f1,a);
k:=0;
for i:=2 to round(sqrt(a)) do
if a mod i=0 then k:=k+1;
if k=0 then writeln(f2,a,' - обычное число')
else writeln(f2,a,' - составное число');
close(f1); close(f2);
end.
Пример:
Файл input.txt:
43
Файл output.txt:
43 - обычное число
Сережа Гориев
Спасибо большое)))
Вероника Лубовинина
Пожалуйста.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
Облако тегов