var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
1). 3 - это значит, что трехзначное число.
5 - сумма цифр в этом числе.
Ответ: 410
2). 8мб=2^26 бит
8мб=8192 кбайт
8192 кбайт*0.25=2048=2^24 бит
2^26/2^20=2^6=64 сек.
2^24/2^20=2^4=16 сек.
64-28=36
Ответ: А36
3). 2^2+2^3+2^4+2^5=4+8+16+32=60
Ответ: 60
B9). м=и+е+к=8+8+8=24
и=е=8
к=е=8
е=в+г+ж=1+3+4=8
в=б=1
г=б+а+д=1+1+1=3
ж=г+д=3+1=4
б=а=1
Ответ: 24
B12). Ответ: 170
B15). Очень много расписывать. Там целую таблицу составлять нужно.
B14). Честно не знаю как.
Var
s : String;
i : Integer;
begin
Writeln('Введите строку:');
Readln(s);
<span> i:= 0;
</span><span>
while pos(')', s) <> 0 do
</span> begin
<span> i := i + pos(')', s) - pos('(', s) + 1;
</span><span> delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);
</span> end;
<span>
Writeln(s);
</span> Writeln(i);<span>
Readln;
</span><span>end.
2)
var
s : String;
</span> <span>i, e : Integer;
</span> <span>flag : Boolean;
begin
Writeln('Введите строку:');
Readln(s);
<span>
</span></span> <span>e := 0;
</span> <span>flag := False;
for i := 1 to Length(s) do
</span> <span>begin
</span> <span>if (s[i] = UpCase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then flag := True;
</span> <span>if flag then Write(s[i]);
</span> <span>if (( s[i] = ' ' ) or ( i = Length(s))) and flag then
</span> <span>begin
</span> <span>flag := False;
</span> <span>inc(e);
</span> <span> Writeln;
</span> <span>end;<span>
</span></span> <span>end;
<span> Writeln(e);
</span><span> Readln;
</span>end.</span>
k = float(input('Введите число для сравнения: '))
print('Вводите числа в одной строке через пробел:')
a = list(map(float,input('Ввод: ').split()))
m,r,b = 0,0,0
for i in a:
if i < k:
m += 1
if i == k:
r += 1
if i > k:
b += 1
print('Меньше ',k,':',m,' чис.')
print('Равно ',k,':',r,' чис.')
print('Больше ',k,':',b,' чис.')
Цвета: белый синий красный зелёный
Квадрат : белый синий красный зелёный
Круг: белый синий красный зелёный
Ромб: белый синий красный зелёный
Треугольник: белый синий красный зелёный
Круг не белый и не зелёный; Треугольник не синий и не зелёный
Квадрат : белый синий красный зелёный
Круг: синий красный
Ромб: белый синий красный зелёный
Треугольник: белый красный
Синяя фигура лежит между ромбом и красной фигурой.
Квадрат лежит между треугольником и белой фигурой
Ромб: белый
Квадрат : синий
Треугольник: красный
Круг: синий красный (Зелёный ? => Неверно)
Синяя фигура лежит между ромбом и красной фигурой.
Квадрат лежит между треугольником и белой фигурой
//Ромб
Квадрат : зелёный
Треугольник: красный
Круг: синий
Ромб: белый