Число заносите в ячейку А1 в ячейку В1 пишете формулу =A1*((A1>=850)*0,10+(A1>=6000)*0,05)
во вложении экселевский файлик с решением
Прости пожалуйста , но ты хотя бы фоткай полностью
Var a,i:integer;
begin
for i:= 1 to 4 do begin
a:=random(1,20);
write(a,' ');
end;
<span>end.</span>
Ответ:
Если число а будет входить в промежуток [1;3], то оно будет принадлежать этому промежутку
Объяснение:
А вообще, задание не понятно. Пишите что вам конкретно нужно, программа, на каком языке и т.д.
Var
s:string;
k,i:integer; {k-количество символов 'o',i-счетчик цикла}
begin
readln(s);
k:=0;
for i:=1 to length(s) do {цикл от 1 до длины строки}
if s[i]='o'
then k:=k+1;
writeln(k);
<span>end.</span>