В пятеричной, так как 22 в 5 = 12 в 10, 23 в 5 = 13 в 10, а 100 в 5 = 25 в 10, то есть 12+13=25, ч.т.д
То же самое, что и в предыдущих блоках было, выполнить 1 раз в отношении переменной D.
Алгоритм:
1) Максимальное =A
2) Если B>максимального, то максимальное=B
3) Если C>максимального, то максимальное=C
4) Если D>максимального, то максимальное=D
Чтобы успешно выполнить какую-либо работу или решение задачи нужно передать исполнителю полный набор исходных данных.
1.
Var n,S,k:integer
Begin
Read(n);
for i:=1 to n do
Begin
Read(k);
if k mod 3 = 0 then
S:=S+k;
End;
Write(S);
End.
2. var S,k,n:integer;
begin
Read(n);
While n>=0 do
Begin
k:=n mod 10;
if k mod 2=0 then
S:=S+k;
n:=n div 10;
End;
Write (S);
End.
3. var i, a, b, c:integer;
Begin
read(a);
read(b);
read(c);
Fit i:=1 to b do
Begin
If I mod c=0 then write (i);
End;
End.
4. Var i:integer;
Begin
For i:=1 to 100 do
Writeln(i*i);
End.