// PascalABC.NET 3.0, сборка 1128
begin
var n:=ReadInteger('n=');
var k:=ReadInteger('k=');
for var i:=n to k do begin
var s:=i.toString;
if ((s[1]=s[2]) and (s[1]<>s[3])) or
((s[1]<>s[2]) and ((s[3]=s[1]) or (s[3]=s[2]))) then
Write(i,' ')
end
end.
<u><em>Тестовое решение:</em></u>
n= 318
k= 427
322 323 330 331 332 334 335 336 337 338 339 343 344 353 355 363 366 373 377 383 388 393 399 400 404 411 414 422 424
У тебя после BEGIN стоит ';' и перед END стоит ".",
Program abc;
Uses Robot;
Begin
Field(10,10);
Down; Paint; Down; Paint; Down; Paint; Down; Paint; Up; Up; Up; Right; Paint;Up; Right; Paint; Up; Right; Paint; Down; Down; Down; Down; Paint; Up; Left;Paint; Up; Left; Paint;
END.
1)проблемно-целевой
2)этап разработки сценария и технического задания
3)этап практической работы
4) этап предварительной защиты
5)этап презентации - публичной защиты проекта
1) var mas:array[1..10] of Integer;
i:integer;
begin
i := mas[1];
mas[1] := mas[6];
mas[6] := i;
<span>end.
Вот как то так
</span>
1.источник информации2.информационный канал 3.приемник