блок схема к программе - Помощь студентам

emin313gs · 10.10.2010, 19:25

program Project1;
uses crt;
var
i, Sq : Longint;
begin
for i := 100 to 999 do begin
Sq := i * i;
if Sq mod 1000 = i then
Writeln(i, ' ^2 = ', Sq);
end;
Readln;
end.

Don Karleone · 10.10.2010, 19:46

лови........................

Alter · 11.10.2010, 19:06

Создано с помощью FCEditor

10.10.2010, 19:25	#1
emin313gs Регистрация: 10.10.2010 Сообщений: 6	блок схема к программе program Project1; uses crt; var i, Sq : Longint; begin for i := 100 to 999 do begin Sq := i * i; if Sq mod 1000 = i then Writeln(i, ' ^2 = ', Sq); end; Readln; end.

11.10.2010, 19:06	#3
Alter Старожил Регистрация: 06.08.2007 Сообщений: 2,183	Создано с помощью FCEditor DelphiWorld 6, АVL 2.0.1.3

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
блок схема к программе	emin313gs	Помощь студентам	2	11.10.2010 14:25
Блок-схема к программе	BarracudaSSAT	Помощь студентам	0	06.01.2010 20:08
Блок-схема к программе	Shredder	Помощь студентам	8	20.11.2009 19:07
Блок схема к программе	NeGaTiVe	Помощь студентам	2	02.11.2009 15:18
Блок-схема к программе	OtimJ	Помощь студентам	2	15.01.2009 19:29