Паскаль. Задачки

[flame-93]

Помогите решить)

1) Покупатель должен заплатить S рублей у него имеется 1,2,5,10,50,100,500 рублей.
Сколько купюр каждого достоинства должен заплатить с самых крупных

2) Определить сумму всех N значных числел кратных k

3) Составить таблицу значения f y=корень X в диапозоне от 0 до 2 Пи с шагом Пи на 0,5

[izoalex]

program l;
var s500,s100,s50,s10,s5,s2,s1,s:intege r;
begin
write('Введите S');readln(s);
s500:=s div 500;
s100:=(s mod 500) div 100;
s50:=(s mod 100) div 50;
s10:=(s mod 50) div 10;
s5:=(s mod 10) div5;
s2:=(s mod 5) div 2;
s1:=(s mod 2);
writeln('500:',s500);
writeln('100:',s100);
writeln('50:',s50);
writeln('10:',s10);
writeln('5:',s5);
writeln('2:',s2);
writeln('1:',s1);
readln;
end.

[flame-93]

izoalex что то когда вводишь должно выдовать 2 монеты по 2 рубля а выдает 1 монету 5 рублевую (( решите еще 2 задачи

[izoalex]

Все изменил))

[izoalex]

забыл s2 написать просто

[izoalex]

Вот 3 задача
program lll;
var x,y:real;
i:integer;
begin
x:=pi/2;
writeln('При х=',x:3:5,' y=',y:5:5);
for i:=1 to 4 do
begin
y:=exp(ln(x)*(1/2));
x:=x+(pi/2);
writeln('При х=',x:3:5,' y=',y:5:5);
end;
readln();
end.

[izoalex]

а вторую что то не получается сделать

[flame-93]

izoalex Спасибо за 1 задучу. А ты уверен что 3 правельная?) И помогите решить 2

[izoalex]

А, я в третий забыл там надо еще кое что сделать.
Щас исправлю

[izoalex]

все теперь правильно)
или там надо было вывести с псевдографикой? тоесть с рамками