var
x, y: byte;
begin
readln(x);
repeat
if (x div 3 > 0) then
begin
write(3:2);
x -= 3;
end
else
if (x div 2 > 0) then
begin
write(2:2);
x -= 2;
end
else
if (x > 0) then
begin
write(1:2);
x -= 1;
end;
until (x = 0);
<span>end.</span>
Const
nm = 50;{ предельное число товаров }
var
mn: array[1..nm] of string;
mk, ms: array[1..nm] of real;
i, k, n: integer;
min: real;
begin
Write('Введите число продуктов на складе (не более ', nm, '): ');
Readln(n);
min := 1e10;
for i := 1 to n do
begin
Write('Наименование продукта ', i, ': '); Readln(mn[i]);
Write('Количество и стоимость: '); Readln(mk[i], ms[i]);
if min > mk[i] then begin min := mk[i]; k := i end
end;
Writeln('На складе меньше всего продукта ', mn[k], ': ', mk[k],
' кг. стоимостью ', ms[k], ' руб. за 1 кг.')
end.
Ну раз поскакаль, то так
l:=2*3.14*r;
Эта команда рассчитает длину окружности по радиусу.
Если нужна программа полностью - надо уточнять это в условии.
#include <iostream>
using namespace std;
int main()
{
int x;
cout <<"Введите число: ";
cin >>x;
for(int i=2; i<=x; ++i)
if(x%i==0)
{
cout <<"Наименьший делитель равен ";
cout <<i <<endl;
break;
}
return 0;
}
Я предполагаю что слово день.