Var i,n:integer;
s,k:real;
begin
writeln('Введите количество дней: ');
readln(n);
k:=10;
i:=1;
s:=0;
while i<=n do
begin
s:=s+k;
k:=k*1.1;
i:=i+1;
end;
writeln('Спортсмен пробежал: ',s:5:2);
readln;
end.

var i:integer;
s,k,a,b,sum,p:real;
begin
writeln('Стипендия студента: ');
readln(a);
writeln('Расходы студента: ');
readln(b);
k:=b;
i:=1;
s:=0;
while i<=10 do
begin
s:=s+k;
k:=k*1.03;
i:=i+1;
end;
sum:=10*a;
p:=s-sum;
writeln('Нужно попросить у родителей: ',p:5:2);
readln;
end.

0 0

3 года назад

Расчертите объем видеопамяти необходимой для хранения несжатого растрового графического изображения , занимающего весь экран мог

trever12355 [87]

65536 = 2^i = 2^16
<span> i <span>= 16 бит
Всего точек 1028 * 756 = 777168
</span></span>16 * 777168 = 12434688 бита = 1,48 Мб

0 0

3 года назад

Дана строка. определииь сколько раз в нее входит подстрока «ель». Ввести с клавиатуры строку символов

Александр Тесла [109]

Var s,t:string; k:integer;
begin
writeln('Введите строку:');
readln(s);
t:=UpperCase(s);
k:=0;
while pos('ЕЛЬ',t)>0 do
begin
delete(t,pos('ЕЛЬ',t),3);
k:=k+1;
end;
writeln('k = ',k);
end.

Пример:
Введите строку:
сосна ель ёлка ЕЛЬ берёза
k = 2

0 0

4 года назад