Лови
var
m,a:integer;
b,col,mor,kl,la:real;
begin
write('Сколько кг капусты = ');
readln(m);
a:=m div 10;
b:=m mod 10;
mor:=350*a;
kl:=200*a;
col:=225*a;
la:=4*a;
b:=b*0.1;
mor:=mor+350*b;
kl:=kl+200*b;
col:=col+225*b;
la:=la+4*b;
writeln('На ',m,'кг капусты надо : Морковки - ',mor,'г. Клюквы - ',kl,'г. Соли - ',col,'г. Лаврового листа - ',la,'г');
<span>end.
Тут программа только с двузначными числами работает то есть 15кг 30кг и так далее. </span>
n = input ()
for i in xrange (2, n+1):
k = 0 for j in xrange (2, i):
if i % j == 0:
k + 1 if k == 0:
print (i)
const N = 12;
const lim = 65535;
var array1: array [1..N] of real;
i: integer;
begin
randomize;
for i:=1 to N do begin
array1[i]:= random(-lim, lim) * 2;
writeln(array1[i]);
end
end.
Да и все цифры могут быть четными:)))