1.Налил в чайник воды.
2.Поставил на газ и подождал пока он закипит.
3.Насыпал в заварник заварку.
4.Залил кипятком.
5.Подождал 10-15 мин.
(я так писала, только не про чай)
Ответ:
Все в объяснении
Объяснение:
1.
print(str(a) + '+' + str(b) + '=?') #Выведет: 5+3=?
print(str(a) + '+' + str(b) + '=' + str(a+b)) #Выведет: 5+3=8
2.
print('Z(' + str(a) + ')=F(' + str(b) + ')') #Выведет: Z(5)=F(3)
3.
print('a=' + str(a) + ';b=' + str(b)) Выведет: a=5;b=3
*Мы используем функцию str() из-за того, что конкатенация работает только со строчным типом данных
ПаскальАВС.нет
var
f:text;
s,t:string;
i,n:integer;
y:boolean; //признак наличия слова NO
function wr(c:char):boolean; //определяет, буква или нет
begin
if (c in ['A'..'Z']) or (c in ['a'..'z']) then result:=true else result:=false
end;
begin
assign(f,'d:/file.txt');
reset(f);
repeat
readln(f,t);
s:=t;
y:=false;
i:=pos('NO',s);
while i>0 do
begin
n:=length(s);
if n=2 then
y:=true
else
begin
if i=1 then
begin
if wr(s[i+2])=false then y:=true;
end
else
if wr(s[i-1])=false then y:=true;
end;
delete(s,1,i+2);
i:=pos('NO',s);
end;
if y=false then writeln(t);
until f.Eof;
close(f)
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Horner(Self:sequence of real;x:real):real; extensionmethod;
begin
Result:=Self.Aggregate(0.0,(p,q)->p*x+q) // коэфф. по убыванию степеней!
end;
begin
var x:=ReadReal('Укажите значение х:');
Writeln('Введите коэффициенты в порядке возрастания степеней: ');
Writeln('Результат: ',ReadArrReal(11).Reverse.Horner(x));
end.
const
pi = 3.18;
k = 2.7;
var
f, x: real;
begin
write('x = ');
read(x);
if x < -pi / 2 then writeln('f(x) = ', (2 * sqr(sin(x / 2)) / x));
if x >= -pi / 2 then writeln('f(x) = ', exp(sqr(x)) + cos(2 * k * x));
<span>end.</span>