Var
s, x: integer;
begin
s:=0;
repeat
readln(x);
s:=s+x;
until x = 0;
writeln(s);
end.
<span>может быть так:
</span>var x1,x2,y1,y2:integer;
a,b:real;
begin
write ('Введите x1 и x2: ');
readln (x1,x2);
write ('Введите y1 и y2: ');
readln (y1,y2);
a:=sqrt (sqr (x1) + sqr (y1));
b:=sqrt (sqr (x2) + sqr (y2));
if a>b then writeln ('1-я точка ближе')
else writeln ('2-я точка ближе');
end.
1. Передача (или получение)
2. Обработка
3. Обработка
4. Хранение
5. Передача
6. Получение
7. Передача
8. Обработка
Надеюсь правильно, сорян если ошибся
128 символов = 2^7 т.е. 7 бит на символ
Одна страница занимает = 8750байт / 5 страниц = 1750 байт
Одна строка занимает = 1750 байт / 25 строк = 70 байт
Символов в строке = 70*8 бит / 7 бит = 80 символов