60 информатика 8 класс программа паскаль

program abc;

var a,b,c,s: integer;

begin

s: =0;

writeln ('введите двузначное число');

readln(a);

b: =a div 10;

c: = a mod 10;

s: = b + c;

writeln ('сумма цифр вашего числа = ',s);

end.

Запись 5 строк в файл }

procedure TForm1.Button1Click(Sender: TObject);

var outfile: TextFile;

begin

AssignFile(outfile, 'outfile.txt')

;Rewrite(outfile);

writeln(outfile, 'Привет из Delphi');

writeln(outfile, 'Моя программа работает, и выводит '

+'данный текст, чтобы доказать это...');

writeln(outfile, '3. Треться строка');

writeln(outfile, '234 четвертая');

writeln(outfile, 'Пятая строка');

CloseFile(outfile);

end;

// вывод на экран точнее в мемо или лист бокс

procedure TForm1.Button2Click(Sender: TObject);

begin

// выводим в мемо

Memo1.Lines.LoadFromFile('outfile.txt');

// либо в лист бокс как тебе лучше

ListBox1.Items.LoadFromFile('outfile.txt');

end;

// кнопка для закрытия

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

// событие onClose

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);

begin

if MessageDlg('Вы точно хотите выйти?', mtConfirmation, mbOkCancel,0)= mrOk then begin

CloseAction:= caFree;

end

else begin

CloseAction:= caNone;

end;

end;

ЗДЕСЬ!

outfile.txt - это ваш файл(может создаваться автоматически

Объяснение:

#include <algorithm>

#include <array>

#include <iostream>

int main()

{

std::array<int, 6> arr{ 13, 90, 99, 5, 40, 80 };

std::cout « "Enter a value to search for and replace with: ";

int search{};

int replace{};

std::cin » search » replace;

// Проверка пользовательского ввода должна быть здесь

// std::find() возвращает итератор, указывающий на найденный элемент (или на конец контейнера).

// Мы сохраним его в переменной, используя автоматический вывод типа итератора

auto found{ std::find(arr.begin(), arr.end(), search) };

// Алгоритмы, которые не нашли то, что искали, возвращают итератор, указывающий на конец контейнера.

// Мы можем получить доступ к этому итератору, используя метод end()

if (found == arr.end())

{

std::cout « "Could not find " « search « '\n';

}

else

{

// Перезаписываем найденный элемент

*found = replace;

}

for (int i : arr)

{

std::cout « i « ' ';

}

std::cout « '\n';

return 0;

}