чернила были красные и черные. весь текст писался чернилами черного цвета, а начало каждого нового раздела, т.е. новой мысли выделяли красными чернилами, так появилось выражение "красная строка", которым мы и сейчас обозначаем новую строку в начале абзаца.
Ответ дал: Гость
var x,s,n: integer;
begin
repeat
read(x);
if x< 0 then n: = n +1;
if x > 0 then s: =s+x;
until x=0;
writeln(n,s);
end.
Ответ дал: Гость
var s,a,i: real;
begin
repeat
writeln("вес следущего пасажира kg");
read(a);
s: =s+a;
if s< 8000 then
i: =i+1;
until s> =8000
writeln(i);
end.
var b,a,i: real;
begin
read(a,b);
repeat
a: =a+a*0.03;
i: =i+1;
until a> =b
writeln(i);
end.
var i,s: integer;
begin
for i: = 1900 to 1999 do begin
s: =s+365;
if (i mod 400=0) or ((i mod 4 = 0) and (i mod 100< > 0)) then
s: = s+1;
end;
writeln(s);
end.
Ответ дал: Гость
расстояние от первого дома до пятого -40м я бы вырыла колодец около 3 дома-середина. тогда от 1 до колодца 20м и 10м от второго до 3.-с одной стороны 30м и с другой стороны 30м
Популярные вопросы