Информатика.10 класс задачи на циклы. ПАСКАЛЬ 1. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. Программа получает на вход количество чисел в последовательности N, а затем сами числа. Программа должна вывести одно число — сумму чисел, кратных 3. Пример работы программы: Входные данные: 3, 12, 25, 9 Выходные данные: 21. 2. Напишите программу, которая позволяет вычислить все значения функции y=2х +4 для ) 5;2( x с шагом 0, 5. Программа должна вывести таблицу значений x, y. 3. Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 9. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0. Программа должна вывести одно число: количество всех чётных чисел, кратных 9. Входные данные: 27, 24, 18, 22, 36, 0 Выходные данные:2 4.Напишите программу, которая определяет количество нечетных цифр в числе N. Программа получает на вход число N (N описывается типом longint Программа должна вывести одно число – количество нечетных цифр числа. Пример работы программы: Входные данные: 12564 Выходные данные: 2

{ Запись 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 - это ваш файл(может создаваться автоматически

ЧТО НУЖНО СДЕЛАТЬ?
1. Закинуть на форму 3 кнопки
2. Закинуть ListBox или Memo
3. В событиях формы в инспекторе объектов (Инспетор Объектов/ События/ onClose) в onClose выбрать процедуру FormClose

Тачки 2 одинаковые монеты например 10 руб. на одну сторону и 10 руб. на другую сторону что так чтобы в равновесии потом убери одну монетку и стать в другую если они тоже будут одинаковые стать другом летать по очереди не стоять в одну сторону по одной монетки потомстве То какая то будет тяжелее той монеты Ну или легче Что значит то Монеты которые тяжелее или легче То есть все же одинаковые монеты А есть одна Какая прекрасная может быть и тяжесть в сети монетки настоящий или ненастоящий монетки на которые будут отделяться отделяться весом такое фальшивка