{ Задача по информатике решить в паскале Имеется продуктовая база в которой можно
закупить партию товара по условиям минимальная стоимость , близость поставки ,
прочность товара Если товар удолетворяет - закупаем
Если ее удолетворяет - не закупаем
Мы вводим данные близость поставки, прочность товара, и минимальная стоимость
если все три условия выполняются ввыводим закупаем а
если не выполняются выводи не закупается}
type
WareData = record
MinPrice: integer;
Distance: integer;
Strength: real;
end;
var
Base, Client: WareData;
begin
Base.MinPrice := 4;
Base.Distance := 57;
Base.Strength := 0.25;
read(Client.MinPrice, Client.Distance, Client.Strength);
if (Client.MinPrice >= Base.MinPrice)
and (Client.Distance >= Base.Distance)
and (Client.Strength <= Base.Strength) then
writeln('Берем')
else
writeln('Не устраивает');
end.
Поделитесь своими знаниями, ответьте на вопрос:
На вход программе подается два натуральных числа a и b (a < b Напишите программу, которая находит все простые числа от a до b включительно. Python
var a, b, i, j, l: integer;
begin
read(a, b);
for i:=a to b do
begin
j:=2;
l:=round(sqrt(i));
while (i mod j <> 0) and (j <= l) do
inc(j);
if j > l then write(i, ' ');
end;
end.