Составить программу, которая выводит полную запись десятичного числа 42 * 4 *, в которой пропущены две цифры

@SiF · Регистрация: 04.10.2013

Author24 — интернет-сервис помощи студентам

Составить программу, которая выводит полную запись десятичного числа 42 * 4 *, в которой пропущены две цифры, если заданное число кратное 72

@Puporev · 04.10.2013, 19:34

Pascal

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var i,j:integer;
begin
for i:=0 to 9 do
for j:=0 to 9 do
if (42000+100*i+40+j) mod 72=0
then writeln(42000+100*i+40+j);
readln
end.

@inna24 · 19.04.2017, 12:26

Puporev, а можно тоже самое но не в консольном режиме , чтобы была форма

@droider · 19.04.2017, 12:30

inna24, можно так

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 i, j:Integer;
begin
for i :=0 to 9 do
for j :=0 to 9 do
if (42000+100*i+40+j) mod 72=0
then Label1.Caption := Format('Полученное число: %d', [42000+100*i+40+j]);
end;
 
end.

@Puporev · 19.04.2017, 12:32

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
for i:=0 to 9 do
for j:=0 to 9 do
if (42000+100*i+40+j) mod 72=0
then Memo1.Lines.Add(inttostr(42000+100*i+40+j));
 
end;

@SiF 0 / 0 / 0 Регистрация: 04.10.2013 Сообщений: 5
		1
	Составить программу, которая выводит полную запись десятичного числа 42 * 4 , в которой пропущены две цифры 04.10.2013, 16:59. Показов* 1526. Ответов 4 Метки нет (Все метки) Составить программу, которая выводит полную запись десятичного числа 42 * 4 *, в которой пропущены две цифры, если заданное число кратное 72 0

@inna24 0 / 0 / 0 Регистрация: 10.06.2016 Сообщений: 45
	19.04.2017, 12:26	3
	Puporev, а можно тоже самое но не в консольном режиме , чтобы была форма 0

	19.04.2017, 12:32

Составить программу, которая выводит полную запись десятичного числа 42 * ​​4 *, в которой пропущены две цифры

Составить программу, которая выводит полную запись десятичного числа 42 * 4 *, в которой пропущены две цифры