Спас зайцев с острова A
Спас зайцев с бревна B
A&B
Сохранение мира A
увеличить усилия всех государств B
B→A
Отказываться от помощи A
Сесть в лужу B
→
подчеркивание сверху означает отрицание
Луна сияла A
Июльская ночь была тиха B
Поднимался ветерок C
Пробегал легкий шорох D
A&B&C&D
Ахейские мастера A
оружейники B
ювелиры C
гончары D
художники E
скульпторы F
A&B&C&D&E&
Сильные A
Афины B
Спарта C
Богатые D
Коринф E
A→B&C+D→E
Берегла книги A
Берегла рисунки B
Берегла стихи C
A&B&C
Бурмин A
Ум, нравится женщинам B
Ум приличия C
Ум наблюдения D
Ум без притязаний E
Ум беспечно насмешливый F
A&(B→C&D&E&F)
Вероятно так... за точность не ручаюсь, ибо уже подупоролась
Программы на pascal
1)
var
x, y: real;
begin
writeln('Введите х');
readln(x); //Вводим х
y:= sin(sqr(x));
writeln('y = ', y : 0 : 5); {Печатаем значение у с округлением до 5 знаков после запятой}
end.
2)
var
x, y: real;
begin
writeln('Введите х');
readln(x); //Вводим х
if x >= 0 then y:= cos(x) //Если х >= 0, то у = cosx, иначе у = 1 - 2sinx
else y:= 1 - 2 * sin(x);
writeln('y = ', y : 0 : 5); {Печатаем значение у с округлением до 5 знаков после запятой}
end.
Если все правильно, отметь решение как лучшее)
Program DemoSet;
uses crt;
var s:string;
i,k:integer;
begin
k:=0;
clrscr;
write('Введите произвольную строку =>');
readln(s);
writeln('Строка результат');
for i:=1 to length(s) do
begin
if not(s[i] in [1234567890] )then
begin
if s[i] in ['0'..'9'] then inc(k);
write(s[i])
end;
end;
writeln;
writeln('Количество цифр в строке ',k);
readln
end
program n_1;
var n, i, m, s: integer;
begin
s:=0;
read(n);
for i:=1 to n do begin
read(m);
if m mod 2 = 0 then s:=s+1;
end;
writeln(s);
end.