1)
var s,k:integer;
begin
s:=0;
begin for k:= 6 to 12 do
s:=s+5;
end;
write(s);
end.
Ответ
35
2)
var Dat: array [1..7] of integer;
k, m, day: integer;
begin
Dat[1]:=7;
Dat[2]:=9;
Dat[3]:=10;
Dat[4]:=8;
Dat[5]:=6;
Dat[6]:=7;
Dat[7]:=6;
day:= 1;
m:=Dat[1];
begin for k:=2 to 7 do
if Dat[k]<m then
begin m:=Dat[k];
day:=k;
end;
end;
write(day);
end.
Ответ
5
На каждый цвет 1 бит. Всего 64 бита = 8 байт
Var n:integer;
Begin
Read(n);
while (n>0) do begin
if(n mod 2 = 1) then begin
writeln(true);
exit;
end;
n := n div 10;
end;
writeln(false);
End.
Поскольку тут речь о последовательности неизвестной длины, вводимой с клавиатуры до появления нуля, а условие позволяет для каждого вводимого числа сразу решить, должно ли оно входить в сумму, задача решается без использования массива и условие "<span>Количество чисел не превышает 1000" - это просто ловушка для наивных с тем, чтобы в случае использования массива длиной 1000 объявить затем решение неэффективным по памяти.
</span><em>1. Решение на современной версии Паскаля</em>
<em>PascalABC.NET 3.2, сборка 1389 от 01.03.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadSeqIntegerWhile(n->n<>0)
.Where(n->(n mod 3=0) and (n mod 10=6)).Sum;
Writeln('Сумма отобранных чисел равна ',s)
end.
<em>Пример</em>
15 36 26 72 25 96 83 0
Сумма отобранных чисел равна 132
<em>2. Решение "по-школьному"</em>
var
n,s:integer;
begin
s:=0;
repeat
Read(n);
if (n mod 3=0) and (n mod 10=6) then s:=s+n
until n=0;
Writeln('Сумма отобранных чисел равна ',s)
end.
<u>Пример</u>
15 36 26 72 25 96 83 0
Сумма отобранных чисел равна 132
<em>// PascalABC.NET 3.2, сборка 1404 от 16.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b,k:integer; Read(a,b,k);
Writeln(Range(a,b).Where(i->i mod k=0).Count)
end.
