Компьютер, колькулятор, абак, часы
var s,vk:real;
m:integer;
begin
s:=100000;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+0.04*s;
s:=1.04*s;
m:=m+1;
end;
write(m);
end.
Это решение для ваших параметров.
Uses Crt;
var s,vk,pc:real;
m:integer;
begin
clrscr;
Writeln('Введите сумму вклада:');
Read(s);
Writeln('Введите месячный процент(%):');
read(pc);
pc:=pc/100;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+pc*s;
s:=(1+pc)*s;
m:=m+1;
end;
write('Вклад превысит 30 руб через ',m,' месяцев');
end.
Это решение для задаваемых параметров
Вопросы, недочеты в ЛС
Реляционная база данных. Это когда таблица связана с одной или несколькими таблицами. Например: В таблице заказов: есть таблица с id товара, ценой и id покупателя, она должна быть тесно связана с таблицей информации о покупателе.
16 Кбайт = 16*1024 байт = 16*1024*8 бит
Память для одного пикселя:
16*1024*8/(256*128) = 4 бита
Число цветов = 2^4 = 16
Ответ: 16
Расположение как написано: желтый квадрат, зеленый ромб, красный треугольник, синий круг