ПОМОГИТЕ СРОЧНО ПАСКАЛЬ ДАМ 20 БАЛЛОВ 2 3 и 4 пожалуйста. Created by aven7play. informatika-ru

ПОМОГИТЕ СРОЧНО ПАСКАЛЬ ДАМ 20 БАЛЛОВ 2 3 и 4 пожалуйста...

aven7play @aven7play

July 2022 1 4 Report

ПОМОГИТЕ СРОЧНО ПАСКАЛЬ ДАМ 20 БАЛЛОВ 2 3 и 4 пожалуйста

Answers & Comments

saintegg Решения для третьей и второй задач

0 votes Thanks 0

saintegg Вторая

saintegg --------------

saintegg program psck;

var

count, count1 : integer;
p, now, x, x1, sum: real;

begin

readln(x,p);
p:=1+p/100;
count:=0;
now:=0;
x1:=x;
sum:=0;
count1:=0;

while now<3*x do
begin
now:=now+x;
x:=x*p;
count:=count+1;
end;

while sum<1000 do
begin
sum:=sum+x1;
x1:=x1*p;
count1:=count1+1;
end;

writeln('В три раза больше на ',count,' день');
writeln('Не менее 1000 км за ',count1,' день');
end.

saintegg -----------------

saintegg Третья

saintegg -------------------------------

saintegg program psck;

var

z, p, sum, now : real;
count: integer;

begin

readln(now);
sum:=now;
count:=1;

while now<100 do
begin
now:=now*1.1+5;
count:=count+1;
sum:=sum+now;
end;

writeln('Номер дня - ',count);
writeln('Зарплата в этот день - ',now);
writeln('Сумма заработанных денег - ',sum:20:2);

end.

saintegg И удали переменные z и p, они не нужны для решения третьей задачи, забыл удалить)

v kakih ugolkah zemnogo shara sezhdu ponyatiyami pogoda i klimat mozhno postavit

Answer

Answers & Comments

v kakih ugolkah zemnogo shara sezhdu ponyatiyami pogoda i klimat mozhno postavit

рекомендуемые вопросы

Helpful Links

Helpful Social