1)
var a:integer;
begin
for a:=1 to 5 do
write(a,' ');
end.
2)
var a:integer;
begin
for a:=5 downto 1 do
write(a,' ');
end.
<span>Компьютер
Шестнадцатеричный код:<span>0E2C2A0E2E2E0E2E2C0E2E2F0E2F2C0E2F2E0E2F1B0E2E1E0E2F1914</span></span>
Sub aaa()
r = CDbl(InputBox("Введите радиус"))
Pi = 4 * Atn(1)
s = Pi * r ^ 2
c = 2 * Pi * r
MsgBox "S=" + CStr(s) + ", C=" + CStr(c), vbOKOnly
End Sub
1. С:\учёба\математика\ГИА\Расписание
2. С:\учёба\Расписание
3. D:\2013\Зима\Январь\Вьюга.doc
<span>4. D:\2013\Весна\Май\Ландыш.doc
Остальные задания повторяются.</span>