Объяснение:
1.
<u>n</u><u> - исходное число,
</u>
<u>sum</u><u> - сумма четных чисел.</u>
<u />
var
n: longint;
sum: integer;
begin
readln(n);
sum := 0;
while n > 0 do begin
if n mod 10 mod 2 = 0 then
sum := sum + n mod 10;
n := n div 10;
end;
writeln(sum);
end.
2.
<u>str </u><u>- строка;
</u>
<u>len </u><u>- количество символов в строке;
</u>
<u>let_s, let_b </u><u>- количество строчных (маленьких) и прописных (больших) букв.</u>
<u />
var
str: string;
i, len, let_b, let_s: byte;
begin
readln(str);
len := length(str);
let_b := 0;
let_s := 0;
for i:=1 to len do
if (str[i] >= 'a') and (str[i] <= 'z') then
let_s := let_s + 1
else
if (str[i] >= 'A') and (str[i] <= 'Z') then
let_b := let_b + 1;
writeln((let_s/len)*100:5:2);
writeln((let_b/len)*100:5:2);
writeln;
end.
Program dlksjijh;
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.
Texture.bmp ну точечный рисунок , ну или просто фото в формате .bmp
Foto.doc документ Word?? Вроде это я так понял
#include <iostream>
<span>#include <iomanip>
</span><span>using namespace std;
</span>// перевод из основания frm в основание 10
<span>void snd(int frm,int* n,char s[]) {
</span><span> int m,p;
</span><span> m=strlen(s);
</span><span> if (m>0) {
</span><span> if (s[m-1]<58) p=s[m-1]-48;
</span><span> else p=s[m-1]-'a'+10;
</span><span> s[m-1]=0; snd(frm,n,s);
</span><span> }
</span><span> else p=0;
</span><span> *n=*n*frm+p;
</span><span>}
</span>// перевод числа n из основания 10 в to
<span>void dsn(int* n,int to,char s[]) {
</span><span> static int k=0;
</span><span> int m;
</span><span> m=*n%to; *n/=to; k++;
</span><span> if (*n>0) dsn(n,to,s);
</span><span> else { s[k]=0; k=0; }
</span><span> if (m<10) s[k]=m+48;
</span><span> else s[k]=m+'a'-10;
</span><span> k++;
</span><span>}
</span><span>int main() {
</span><span> </span><span>
</span> int osns,osnd;
<span> int n=0;
</span><span> char s[30];
</span><span> cout<<"from osn: "; cin>>osns;
</span><span> cout<<"number: "; cin>>s;
</span><span> cout<<"to osn: "; cin>>osnd;
</span><span> snd(osns,&n,s);
</span><span> dsn(&n,osnd,s);
</span><span> cout<<s<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
from osn: 5
number: 13211
to osn: 16
420
from osn: 16
number: 2f3de
no osn: 6
4051502
</span>