Var i : Integer;
Begin
For i:=100 to 999 do
If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i));
end.
Результат:
376 * 376 = 141376
625 * 625 = 390625
В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;
я думаю Инна наверное
Объяснение:
Оля: Разбила Инна
Надя: да, Оля права
Коля: Это либо Ира, либо Инна
"Кратно 10" означает, что остаток от деления (a-13) на 10 равен нулю.
(a - 13) % 10 == 0
<span>-заголовок программы (обычно вообще не нужен)
-блок описания переменных (только если переменные нужны)
-программный блок (без этого просто не будет программы)
-оператор присваивания (только если </span>присваивание <span>использовалось)
Ответ </span>-программный блок
Пример:
begin
writeln('Hello world!');
end.