Задание 1. Приготовить файл input.txt (с числом). Написать программку, которая считает из
Задание 1.
Приготовить файл input.txt (с числом). Написать программу, которая считает из файла число и построит его в квадрат. Вывести квадрат числа в файл output.txt.
Задание 2.
Отыскать сумму цифр чисел, записанных в файл.
Задание 3.
Приготовить файл input1.txt (с числом). Написать программку, которая считает из файла два числа. Вывести на экран наибольшее из 2-ух чисел.
Ответ:
Объяснение:
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 -
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.