Задача 1. Дано натуральное число. Определить, если ли в нем цифра а.
Задача 2.Составить программу планирования закупки товара в магазине на сумму, не превышающую заданную величину.
Задачи решить двумя способами:
1.С использованием цикла с предусловием.
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.