![178cosmaeckelberg](/avatars/31115.jpg)
178cosmaeckelberg
01.08.2019 •
Computers and Technology
Write a complete program that declares an integer variable, reads a value from the keyboard into that variable, and writes to standard output the variable's value, twice the value, and the square of the value, separated by spaces. besides the numbers, nothing else should be written to standard output except for spaces separating the values.
Solved
Show answers
More tips
- H Health and Medicine Tick Traps: How to Remove Them Safely and Effectively...
- S Society and Politics Why are thugs called gopniks ? A fascinating journey through Russian subculture...
- A Animals and plants Want a Perfect Lawn? Learn How to Plant Grass the Right Way...
- A Animals and plants How to Properly Care for a Pet Decorative Rabbit at Home?...
- C Computers and Internet How to Check the Speed of My Internet?...
- H Health and Medicine 10 Ways to Cleanse Your Colon and Improve Your Health...
- W Work and Career How to Write a Resume That Catches the Employer s Attention?...
- C Computers and Internet Е-head: How it Simplifies Life for Users?...
- F Family and Home How to Choose the Best Diapers for Your Baby?...
- F Family and Home Parquet or laminate, which is better?...
Answers on questions: Computers and Technology
- M Mathematics Labor lab (2008) nyt 1) how many people (in the millions) in april of 2008 were looking for a full-time job while they were working part time? 2) the 4.1 in the picture...
- L Law Pre-drive checks are when you _ a. get a mechanic s opinion before you buy a car from a dealership b. make sure your car is adjusted correctly and ready for a drive...
- M Mathematics Need answer provide explanation please....
Ответ:
unit Unit2;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm2 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
procedure FormCreate(Sender: TObject);
private { Private declarations }
public { Public declarations }
end;
var Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
var i: integer;
txtline: string;
begin
i := StrToInt(edit1.text);
txtline := IntToStr(i) + ', ' + IntToStr(2 * i) + ', ' + IntToStr(i * i); edit2.text := txtline;
end;
end.
Ответ: