Program n1;
var sum,kp,ko,a: integer;
begin
readln(a);
sum:=0;
ko:=0;
kp:=0;
while a<>0 do
begin
sum:=sum+a;
if a>0 then kp:=kp+1
else ko:=ko+1;
readln(a);
end;
writeln(sum);
writeln(kp-ko);
end.
Они одинаковые,потому что система хранения информации тысячеричная.Байт, Килобайт, Мегабайт, ГИГАБАЙТ,Террабайт.
А) .txt - обыкновенный текстовый формат. Является.
B) .odt - текстовый документ программы OpenOffice. Является.
C) .rtf - формат обмена документами Above и Microsoft. Является.
Методом исключения выбираем ответ : D).
Действие с повторением называются Циклы.
Примером цикла из жизни может послужить анекдот:
Программист решил помыть голову шампунем
Читает инструкцию
1. Нанести шампунь
2. Намылить
3. Смыть
4. Процедуру повторить
Ну и он зациклился.