program raf105;
var
s,p,n: real;
i,let: integer;
begin
write('Введите положенную сумму: ');
readln(s);
write('Введите ежегодный прирост (%): ');
readln(p);
write('Введите желаемую сумму: ');
readln(n);
while s < n do
begin
let+= 1;
s+= s/100*p;
end;
writeln('Первоначальная сумма увеличится до желаемой через ',let,' л.');
end.
<h3><em><u>Язык PascalABC</u></em></h3>
"Говорильный" аппарат,
Модный гаджет,связи рад.
Фото,видео снимает,
На звонки он отвечает.
( Телефон)
К празднику, всегда "накрыт",
Полон явств и каждый сыт,
Я бюро и секретер,
Есть компьютерный размер.
<span> ( Стол)
</span>Важных данных я хранитель,
Информации носитель,
Гибкая,так что же это?
Я магнитная ?(Дискета)
Я блокнот и память я,
Есть и электронная.
Записи я все веду,
Всё фиксирую и жду.
<span> </span> (Записная книжка)
Не пищу и не шуршу,
А с компьютером-дружу.
Я курсором управляю,
И командам помогаю.
(Мышка)
Осенью,я всех встречаю.
Летом,просто отдыхаю.
Весь учебный год-учу,
Дарить знания хочу.
(Школа)
Ответ:
5
Объяснение:
31=2^4+2^3+2^2+2^1+2^0
10^4+10^3+10^2+10^1+10^0=11111
Var x,s:integer;
begin
s := 0;
read(x);
while x <> 0 do
begin
if (x mod 3 = 0) and (x mod 10 = 4)
then s := s + x;
read(x)
end;
write(s)
end.
Глубина 8 бит означает, что на хранение каждого пикселя нужно 8 бит = 1 байт, а всего этих пикселей 800*600 = 480000 -> необходимо 480000 байт = 468.75 кбайт.