// PascalABC.NET
// Версия 3.4 сборка 1749 (18.08.2018)
Если места нумеруются с 1:
begin
ReadlnString.Select((i, j)-> (i, j + 1)).Where(t -> (t[1].IsOdd) and (t[1] mod 3 <> 0) and (t[0] = 'd')).Count.Println
end.
Если места нумеруются с 0:
begin
ReadlnString.Select((i, j)-> (i, j)).Where(t -> (t[1].IsOdd) and (t[1] mod 3 <> 0) and (t[0] = 'd')).Count.Println
end.
Var i, k: integer;
a:array[1..100] of integer;
begin
k:=0;
for i := 1 to 100 do
begin
a[i]:=random(15)-7;
writeln(a[i]);
end;
for i := 1 to 100 do
if a[i]=5 then inc(k);
writeln(k);
readln
<span>end.</span>
Дано:
Учеб - 200 стр
1 стр - 35 строк
1 строка - 50 символов
Решение:
1) 50*35=1750 (символов) - на одной странице
2) 1750*200=350000 (символов) - в учебнике
3) так как в задаче не указан метод кодировки, то будем использовать кодировку ASCII ( в ней 1 символ равен 1 байту, также есть кодировка UNICODE, в которой 1 символ равен 2 байтам).
Итак, 1 символ = 1 байту, тогда
350000*1=350000 (байт)
350000/1024 = 341,7 (Кб) - объём одного учебника.
4) переведём 2 Гб в Кб
2 Гб*1024 = 2048 (Мб)
2048*1024= 2 097 152 (Кб)
5) Разделим полученный объём на объём одного учебника:
2 097 152/341,7 = 6137 (учебников)
1)Program n_1;
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if c>y then c:=y;
if c>z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (y>x) and (z>x);
w:= (y<x) and (y<z);
e:= (z<y) and (z<x);
if e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (x<y) and (x<z) then writeln (x);
if (y<x) and (y<z) then writeln (y);
if (z<y) and (z<x) then writeln (z);
end.
алг и кц - определение самого алгоритма
объявляются целочисленные переменные a, b,t
пользователем вводится переменная a
a присваивается переменной t
0 присваивается переменной b
начало цикла с условием, что t не должен равняться 0
остаток от деления числа t на 10 присваивается переменной b
деление с остатком числа t на 10 присваивается переменной t