Var n:integer;
begin
writeln('n=');
readln(n);
case n of
3,4,5:writeln('Весна');
6,7,8:writeln('Лето');
9,10,11:writeln('Осень');
1,2,12:writeln('Зима');
end;
<span>end.</span>
Program n1;
var a,p: integer;
begin
randomize;
a:=random(90)+10;
p:=(a mod 10)*(a div 10);
writeln('произведение цифр числа ',a,' равно ',p);
end.
Информативным, полезным, и информация должна быть мне еще не известная.
Sub CommandButton1_Click()
' Dim x, a, b, c, y As Double
x = 5.2319
a = -2.9565
b = 0.8204
c = 0.05
y = -Exp(b) + (a ^ 2 - Sin(3 * (x) ^ 3) ^ 2) / (Sqr(b ^ 2 - c) + x ^ (1 / 3))
MsgBox y
End Sub
Вот так у меня выдает правильный ответ
//PascalABC.NET 3.2 сборка 1318
Var
ar:array of integer;
i,n,min,k:integer;
begin
readln(n);
setlength(ar,n);
min:=integer.MaxValue;
for i:=0 to n-1 do
begin
readln(ar[i]);
if min>ar[i] then min:=ar[i];
end;
for i:=0 to n-1 do
if ar[i]=min then inc(k);
writeln(k);
end.
Пример ввода:
3
1
2
1
Пример вывода:
2