//PascalABC.NET 3.1 сборка 1239
uses GraphABC;
const
n = 4;
begin
Window.CenterOnScreen;
var h := 100;
Window.SetSize(h * n, h * n);
Pen.Width := 3;
for var i := 1 to n - 1 do
begin
Pen.Color := clRandom;
Polyline((h * i, h * 0), (h * n, h * (n - i)), (h * (n - i), h * n), (h * 0, h * i), (h * i, h * 0));
end;
end.
Мне кажется 2)вообще приемник принимает,а источник дает инфу)
Эм... Очень глупые вопросы, либо не правильно написаны но вот :
2) Сережа приходит в школу в 8 часов
3) Названия городов пишутся с Заглавной буквы: Москва Киев Сочи
4) Дробь 3/8 ПРАВИЛЬНАЯ
5) Эм, ну Тополь тоже значит поглощает углекислый газ
Feniy
Program z1;var N,A,B,C,D:integer;beginreadln(N);A:=N div 1000;B:=(N div 100) - (N div 1000)*10;C:=(N div 10)- (N div 100)*10;D:=(N mod 10);n:=0;if (A mod 3)=0 then N:=N+A;if (B mod 3)=0 then N:=N+B;if (C mod 3)=0 then N:=N+C;if (D mod 3)=0 then N:=N+D;writeln(N); end.