Через while do (Pascal) очень нужно, заранее Через сколько минут можно ставить суп на стол, если каждую минуту
температура супа падает на 10% от разности температур супа и комнаты? Принять
начальную температуру супа равной 100, температуру комнаты - 22, температуру
подаваемого супа - 60.
2) В банке открыли вклад с начальным взносом n рублей. В конце каждого года
банк увеличивает сумму вклада на p%. Через сколько лет размер вклада удвоится?
3) Человек пьет ежедневно молоко по одному стакану (0,2 л). Начал он с
понедельника. В воскресенье он выпивает 2 стакана. На какой день он суммарно
выпьет n литров молока?
4) Начав тренировки, спортсмен в первый день пробежал 10 км. В каждый
последующий день он увеличивал норму пробега на 10%.
а) Через сколько дней с начала тренировок спортсмен будет пробегать в
день более 20 км?
б) На какой день с начала тренировок суммарный пробег составит не
менее 100 км?
5) Два подмастерья одновременно отправились пешком из Виттенберга в
Испанию. Первый ежедневно проходил 7 миль, второй в первый день милю,
во второй – 2 мили, в третий – 3 мили и т.д. – в каждый следующий день на 1 милю
больше, чем накануне. Через сколько дней подмастерья встретились?
var
n, i, x, s : integer;
t: string;
begin
writeln('количество чисел');
readln(n);
s := 0;
for i := 1 to n do
begin
writeln(i,' число:');
readln(x);
if (x > 9) and (x<100)) then
begin
t := IntToStr(x);
if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1;
end;
end;
writeln('ответ ',s)
end.
вариант решения, если элементы заданы массивом
const
n=50
var
i, x, s : integer;
t: string;
m1: array [1..n] of integer;
begin
s := 0;
for i := 1 to n do
begin
x := m1[i];
if (x > 9) and (x<100)) then
begin
t := IntToStr(x);
if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1;
end;
end;
writeln('ответ ',s)
end.