<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(20,-100,100); a.Println;
var b:=a.Where(x->(x>0) and (x mod 10=7));
if b.Count>0 then Writeln('Искомое число ',b.Min)
else Writeln('Нет подходящих чисел')
end.
<u>Пример</u>
-5 39 27 94 -50 -3 -73 -18 -36 45 -58 47 45 69 -85 -78 -6 -99 4 -32
Искомое число 27
Class Task1{
public static void main(String[] args){
int sum = 0;
for(int c = 2; c<11; c++)
sum+=c*c;
System.out.println(sum);
}
}class Task2{
public static void main(String[] args) throws java.io.IOException{
int c = 0, n = 0;
while((c = System.in.read())>47 && c<58)
n=n*10+c-48;
float exp = 1;
for(c = 2; c<n+1; c++)
exp*=Math.sin(c);
System.out.println(exp);
}
}
C:\Сентябрь\выпуск1\газета
газета - название файла, выпуск 1 и Сентябрь - подкаталоги.
Пользователь создаёт папку Вёрстка на диске С.
<span>С:\Верстка\Газета</span>
Очевидно, что в условии задачи есть опечатка (вместо 27 коинов должно быть значение не меньше 117). Только в этом случае задача имеет решение. Рассмотрим случай, когда в третий раз Вася попытался снять 117 коинов.
Очевидно, что # и & - это самые большие цифры, то есть мы должны из 2000 вычесть (98Ω+89Ω). Можно здесь действовать подбором, начиная с 0, а можно начать и 7 (в этом случае результат получим быстрее). Если Ω=7, то находим 2000-(987+897)=116.
Таким образом Ω=7
Begin
var pr:=1;
var a:integer:=readlninteger('Введите а:');
var b:integer:=readlninteger('Введите b:');
for a:=a to b do
if (a mod 4 =0) then pr*=a;
println(pr);
end.
