Спаскаля: 1.в магазине продается мастика в ящиках по 15 кг, 17 кг, 21 кг. как купить ровно 185 кг мастики, не вскрывая ящики? сколькими способами можно это сделать? 2.ввести натуральное число n и вывести все натуральные числа, не превосходящие n и делящиеся на каждую из своих цифр. пример: введите n: 15 1 2 3 4 5 6 7 8 9 11 12 15.

2)  program asd; uses crt; var n,i,t,p: integer; begin clrscr; readln(n); for i: =1 to n do begin t: =i; p: =1; repeat p: =p*(t mod 10); t: =t div 10; until t=0; if (p< > 0)and(i mod p=0) then write(i,' '); end; readln; end.сейчас первую дорешаю

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; beginclrscr; writeln('введите сумму вклада: '); read(s); writeln('введите месячный процент(%): '); read(pc); pc: =pc/100; vk: =0; m: =0; while vk< =30 dobeginvk: =vk+pc*s; s: =(1+pc)*s; m: =m+1; end; write('вклад превысит 30 руб через ',m,' месяцев'); end.

это решение для задаваемых параметров

вопросы, недочеты в лс

 

  я думаю тебе хватит около 10 предложениях.  безопасность в интернете  это самое главное что нужно нам современным людям. но безопасных сайтов мало . мы можем заразить свой пк вирусом или другой вредоносной программой которая грозит компьютеру заблокироваться. так что проверяйте сайты на вирусы и тогда вы будете уверены что этот сайт будет  безопасным. сейчас много антивирусных программ которые защищают наш компьютер и специальные модемы например: мегафон для детей . будьте