Ответ:
uses Robot;
begin
Task('cif2');
while FreeFromRight do
begin
if WallFromUp or WallFromDown then paint;
right
end;
if WallFromUp or WallFromDown then paint
end.
Var x,sum:integer;
begin
readln(x);
sum:=1;
while x>0 do begin
sum+=x mod 10;
x:=x div 10;
end;
writeln(sum mod 2);
end.
Using System;
public class ArrayProg
{
static int[] minmax(int[] a, int s)
{
int min = a[0], max = a[0];
for (int i = 1; i < s; i++)
{
if (a[i] < min) min = a[i];
if (a[i] > max) max = a[i];
}
int[] r = new int[2];
r[0] = min;
r[1] = max;
return r;
}
public static void Main()
{
Console.Write("Размер массива: ");
int n = Convert.ToInt32(Console.ReadLine());
int[] arr = new int[n];
for (int i = 0; i < n; i++)
{
Console.Write("#{0} = ", i);
arr[i] = Convert.ToInt32(Console.ReadLine());
}
int[] mm = minmax(arr, n);
float sa = (mm[0] + mm[1]) / 2;
int s = 0;
for (int i = 0; i < n; i++)
{
if (arr[i] > sa) s++;
}
Console.WriteLine("Ответ: {0}", s);
}
}
Если число заканчивается на 5 или 0, то по признакам делимости оно кратно 5.
<u>1. Глупый школьный вариант</u>
Перебираем все числа в заданном диапазоне и если встречаем кратное 5, прибавляем его к сумме.
var
i,s:integer;
begin
s:=0;
for i:=1 to 200 do
if i mod 5=0 then s:=s+i;
Writeln(s)
end.
<em>Результат:</em>
4100
<u>2. Более умный школьный вариант с циклом while</u>
Первое число, кратное 5 - это 5. А дальше прибавляем по 5 к сумме и ничего не нужно проверять.
var
i,s:integer;
begin
i:=5; { первое подходящее число }
s:=i;
while i<200 do begin
i:=i+5;
s:=s+i
end;
Writeln(s)
end.
<u>3. Еще более умный школьный вариант с циклом for</u>
От предыдущего отличается способом получения нужных чисел.
Замечаем, что ряд 5, 10, 15, 20, ... можно получить из чисел 1, 2, 3, 4, ..., умножая их на 5. И таких чисел будет 40.
var
i,s:integer;
begin
s:=0;
for i:=1 to 40 do s:=s+5*i;
Writeln(s)
end.
<u>4. Современный вариант на современном Паскале</u>
Генерируем последовательность нужных чисел и находим сумму её элементов.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(5,200,5).Sum.Println
end.
