D:\SCHOOL\INFO потому как <span>7_CLASS\ и Список_литературы.txt. добавили значит их отбрасываем </span>
var i,s:integer; //создаем целочисленные переменные i и s
begin //начало программы
s:=0; //задаём начальное значение переменной s
for i:=1 to 30 do s:=s+i; //создаём счётчик for от 1 до 30 с последующим суммированием в переменную s
writeln(s); //печатаем переменную s
end. //конец программы
428(10)
428 | 214 | 107 | 53 | 26 | 13 | 6 | 3 | 1
0 0 1 1 0 1 0 1 1 <------- 428(10) = 110101100 (2)
428 | 53 | 6 |
424 48 0
------------------------------
4 5 6 <-------- 428(10) = 654(8)
============================================
8(10) =1000(2)
8(10) =10(8)
========================================
409(10) =110011001 (2)
409 (10) = 631(8)
409 204 102 51 25 12 6 3 1
1 0 0 1 1 0 0 1 1 <===== 409(10) = 110011001(2)
409 51 6
408 48 0
------------------------
1 3 6 <===== 409(10) = 631(8)
<em>// PascalABC.NET 3.2, сборка 1403 от 16.03.2017</em>
begin
var i:=10;
while i>=1 do begin
Writeln(i);
Sleep(1000); // пауза 1с
i:=i-1
end;
Writeln('Пуск!')
end.
<u>Результат</u>
10
9
8
7
6
5
4
3
2
1
Пуск!