1. дано натуральное число. определить, если ли в нем цифра а. 2.составить программу планирования закупки товара в магазине на сумму, не превышающую заданную величину. решить двумя с использованием цикла с предусловием. 2.с использованием цикла с постусловием

ЗАДАНИЕ 2

program magazin;

var c,k,p,s:integer;

begin

writeln ('Предельная сумма – ');readln(p);

s:=0;  

REPEAT;

writeln('Цена товара – ');readln(c);  

writeln('Количество товара – ');readln(k);  

s:=s+c*k;  

writeln('Стоимость покупки =',s);

UNTIL s>p;  

writeln('Не хватает!');

end.