Паскаль.
10-11 класс
|
1) В банк положили вклад N рублей. Каждый месяц вклад увеличивается на 1%. Определить размер вклада через 5 лет.
2) Дано натурального число. Найти сумму его делителей, не кратных 3.
3) Дано натурального число. Найти его максимальную цифру.
1)
uses crt;
var m,p,s:real;
k,n:integer;
begin clrscr;
write('Вклад(N)руб.: ');readln(m);
write('Кол-во лет: ');readln(n);
write('Процент: ');readln(p);
k:=1;
s:=m;
for k:=1 to n do
s:=s+s/100*p;
writeln('s=',s);
readkey;
end.
Не могу понять условия 2) и 3).
Другие вопросы из категории
1) совокупность базовых станций, расположенных по принципу сот (ячеек)
2) лицо, пользующееся услугами сотовой связи
3) организация, принимающая оплату услуг сотовой связи
4) организация, обслуживающая средства сотовой связи
5) организация, имеющая лицензию на предоставление услуг сотовой связи и оказывающая эти услуги
значению элемент, а также номера строки и столбца, содержащих этот элемент. Например, в массиве, показанном справа, максимальный по абсолютному значению элемент равен 8, он находится во 2-й строке 3-го столбца.
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
constructor и destructor и для чего нужна?
4) Что такое implementation и для чего нужна?
5) Назовите модули Паскаль ( в строке Uses, например crt) и какие возможности этот модуль дает?
6) Что за тип переменной: указательный (Pointer)
7) И на последок: что означает символ @ , #, $ , ^
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;