ИНФОРМАТИКА - ЦСКРОТЯМЦФЯ
КОД - ФРЫ
КОМПЬЮТЕР - ФРТПГБМЪО
A)
var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] <> UpCase(a[i])) then
write(a[i], ' ');
<span>end.
b)
var a: string;
i, p: integer;
q: boolean;
begin
readln(a);
for p := 0 to 9 do
for i := 1 to length(a) do
if (a[i] = inttostr(p)) then
q := true;
writeln(q);
<span>end.
c)
var a: string;
i, p, u: integer;
o: array [0..5] of char;
begin
readln(a);
o[0] := '('; o[1] := ')'; o[2] := '{'; o[3] := '}'; o[4] := '['; o[5] := ']';
for p := 0 to 5 do
for i := 1 to length(a) do
if (a[i] = o[p]) then
u := u + 1;
writeln(u);
<span>end.
d)
var a: string;
i, p: integer;
o: array [0..7] of char;
begin
readln(a);
o[0] := '('; o[1] := ')'; o[2] := '?'; o[3] := '!'; o[4] := '"'; o[5] := '.'; o[6] := ','; o[7] := ',';
for i := 1 to length(a) do
for p := 0 to 7 do
if (a[i] = o[p]) then
writeln(a[i]);
<span>end.
Ну вот:) <em>О, мой мозг, как же тебе досталось! ~_~</em></span></span></span></span>
Решение на фото. Суть алгоритма в том, чтобы ввести новые переменные, отвечающие за минимум и максимум в ряду чисел. Логично, что число посередине равно сумме всех чисел минус минимум и максимум, его нужно записывать до остальных чисел.
6 целых 1/4 - 3 целых 2/5.
находим наименьший общий знаменатель и домножаем.
получается: 6 целых 5/20 - 3 целых 8/20.
так как в первой дроби числитель меньше второй дроби, переводим в неправильную дробь.
5 целых 25/20 - 3 целых 8/20 = 2 целых 17/20.
Ответ. 2 целых 17/20
Var s,h:integer;
begin
a:=5;
for x:=2 to 9 do writeln(x,'x',a,'=',x*a);
end.
