Два подмастерья одновременно отправились пешком из Виттенберга в Испанию. Первый ежедневно проходил 7 миль, второй в первый день милю, во второй – 2 мили, в третий – 3 мили и т. д. – в каждый следующий день на 1 милю больше, чем накануне. Через сколько дней подмастерья встретились?

Paskal*​

var days,s1,s2:integer;

begin

days:=2;

s1:=7;

s2:=1;

while s1<>s2 do

begin

s1:=s1+7;

s2:=s2+days;

days:=days+1;

end;

write(days);

end.

программа на паскале:

program xxx;       var a, b: real; begin  writeln('введите количество миль');   readln(a);   b: = a*1.6;   writeln('кол-во киллометров - ',b)end.

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.