HYPERLINK Этим элементом обозначается HTML ссылки
Сделал расчёт и суммы цифр в обоих числах, и сумму цифр первого плюс второе число. Ненужное удалите уж.
Подсчёт суммы цифр сделал независимым от длины числа (хоть сколькозначные вводите, вплоть до максимального целого в Кумире).
алг
нач
цел а,б,н,ас=0,бс=0
лит ат,бт
вывод 'введите целое трёхзначное число: '
ввод а
вывод 'введите целое четырёхзначное число: '
ввод б
ат := цел_в_лит(а)
нц для н от 1 до длин(ат)
ас := ас + Цел(ат[н],0)
кц
вывод 'сумма цифр трёхзначного= ', ас, нс
бт := цел_в_лит(б)
нц для н от 1 до длин(бт)
бс := бс + Цел(бт[н],0)
кц
вывод 'сумма цифр четырёхзначного= ', бс, нс
вывод 'сумма цифр трёхзначного плюс четырёхзначное число= ', ас+б
кон
1. Накопители на жестких магнитных дисках (НЖМД);
2. Накопители на гибких магнитных дисках (НГМД);
<span>3. Накопители на оптических дисках (CD-ROM). </span>
Unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
except
On E : EZeroDivide do
ShowMessage('Деление на 0 запрещено : ');
end;
end;
end.<span>
</span>
