Население города увеличивается на 3% каждый год. в 1993 году население города составляло 65000. напишите программу которая выведит на экран предсказываемую численность населения города в каждом году вплоть до 2014 составьте , , программу. паскаль.

Простая program p; var ch: real;               i: integer; begin  ch: =65000;   for i: = 1993 to 2013 do       begin              ch: =trunc(ch*1.03);               writeln('численность населения в году №',i+1,' равна ',ch);             end; end. для любых данных program p; var year,y1: integer;             ch: real;           i: integer; begin     write('введите начальный год: ');         readln(year);         write('введите конечный год: ');         readln(y1);         write('введите число населения: ');     readln(ch);         for i: = year to y1-1 do            begin                ch: =trunc(ch*1.03);               writeln('численность населения в году №',i+1,' равна ',ch);         end; end.

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.

 

var n, n1, n2, n3, k: integer;

begin readln(n); n1 : = 1; n2 : = 1; n3 : = 2; k : = 0; if (n=1) or (n=2) then k : = 1; while n3 < = n do begin if n3=n then k : = 1; n1 : = n2; n2 : = n3; n3 : = n1 + n2; end; if k = 1 then writeln(n, ' является числом фибоначчи') else writeln(n, ' не является числом фибоначчи'); end.