Рішення

Позначимо через х і k ціну та кількість товару, через р − задану граничну суму, через s − вартість покупки. Початкове значення загальної вартості покупки s рівна нулю. Значення граничної суми зчитується з клавіатури. Необхідно повторювати запит ціни і кількості вибраного товару, обчислювати його вартість, додавати її до загальної вартості і виводити результат на екран до тих пір, доки вартість не перевищить граничної суми р.

program pyat;

var x,p,s:real;

k:integer;

begin

s:=0;

while s<p do begin

writeln('vvedit cenu i kilkist');

readln(x,k);

s:=s+x*k;

end;

writeln(s:5:2);

readln;

end.

Задача 6

Для натурального числа k від 1 до 99 надрукувати фразу "мені k років", беручи до уваги, що при деяких значеннях k слово "років" треба замінити на слово "рік" або "роки".

Рішення

Ключове слово ("років", "рік", або "роки") в описі віку людини залежить тільки від останньої цифри в числі прожитих років, виключенням із загального правила є вік від 11 до 14 років.

program shest;

var k:integer;

m:real;

begin

readln(k);

m:=10*frac(k/10);

if (k>=5) and (k<=20) then writeln('meni',k,'rokiv')

else if (m>=0.5) and (m<=9) then writeln('meni',k,'rik')

else if (m=0) or (m>=5) and (m<=9) then writeln('meni',k,'roku');

readln;

end.

Задача 7

Намалювати прапори двох країн: України та Японії.

program sem;

uses crt,graph;

var gd,gm:integer;

begin

clrscr;

gd:=detect;

initgraph(gd,gm,'c\programs\pascal7\bgi');

setfillstyle(1,3);

setcolor(3);

rectangle(1,1,40,10);

floodfill(2,5,3);

setcolor(14);

setfillstyle(1,14);

rectangle(1,10,40,20);

floodfill(2,15,14);

setfillstyle(1,15);

setcolor(15);

rectangle(50,1,90, 20);

floodfill(51,2,15);

setcolor(4);

setfillstyle(1,4);

circle(70,10,5);

floodfill(70,10,4);

readln;

end.