Question

Задание 1.
Подготовить файл input.txt (с числом). Написать программу, которая считает из файла число и возведет его в квадрат. Вывести квадрат числа в файл output.txt.

Задание 2.
Найти сумму цифр чисел, записанных в файл.

Задание 3.
Подготовить файл input1.txt (с числом). Написать программу, которая считает из файла два числа. Вывести на экран наибольшее из двух чисел.

Answer 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 - простое число

Подробнее - на Znanija.com -