profile
Опубликовано 5 лет назад по предмету Информатика от celikpavel123456789

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

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

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

  1. Ответ
    Ответ дан lgorlovap5n3j5

    Ответ:

    Объяснение:

    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 -