Var g:integer; p:real; begin p:=80000000; g:=2004; while p<3*80000000 do begin p:=p+p*0.05; g:=g+1; end; writeln; writeln('в ',g,' году население увеличится в трое.'); <span>end.</span>
{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer; begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.
Program E04; uses crt; var n,i,k,f: integer; X: array[1..50] of real; Max,S: real; begin clrscr; writeln('Введите размерность: '); readln(n); writeln('Введите массив: '); for i:=1 to n do begin write('X[',i:2,'] ==> '); readln(X[i]) end; writeln('Исходный массив: '); for i:=1 to n do write(X[i],' '); writeln;
Max:=abs(X[1]); for i:=1 to n do if Max <= abs(X[i]) then Max:=abs(X[i]); writeln('Максимальный элемент по модулю: ',Max); i:=1; while (i <= n) and (X[i] <= 0) do i:=i+1; if i > n then writeln ('folse') else begin k:=i; i:=i+1; while (i <= n) and (X[i] <= 0) do i:=i+1; if i > n then writeln ('folse') else begin f:=i; for i := k + 1 to f - 1 do S:=S+X[i]; writeln('Сумма: ',S:5:2); end; end; end.